![[VideoAula] Criando launcher para Wow vb.net Empty](https://2img.net/i/empty.gif)
código fonte:
Código:
Imports System.IO
Public Class Form1
Private Sub VButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton2.Click
End
End Sub
Private Sub VButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton1.Click
Dim arquivo As New StreamWriter("Data\enUS\realmlist.wtf", False)
arquivo.WriteLine("Set realmlist www.bgames.com.br")
arquivo.Close()
Shell("Wow.exe")
File.Delete("Data\enUS\realmlist.wtf") ' remova o ' do começo para ativar a função de deletar o realmlist.wtf
File.Create("Data\enUS\realmist.wtf") ' deixa realm da pessoa em branco.
End
End Sub
End ClassÚltima edição por Fox em Qua 27 Fev 2013 - 9:53, editado 1 vez(es)