[Archive] [Release]Custom Launcher[Vb.Net]
[Archive] [Release]Custom Launcher[Vb.Net]
11-04-2025, 12:45 PM
Original source
Quote: This launcher was designed for a server that no longer exists, but the code could be changed slightly and work with any server.
Code:
Imports System.IO
Imports System.Diagnostics.Process
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim realmlist As StreamWriter = New StreamWriter("realmlist.wtf", False)
realmlist.WriteLine("set realmlist frozenwarground.kicks-ass.net")
realmlist.Close()
Try
startProcess("wow.exe")
Catch
MsgBox("wow.exe not found. Please make sure this is in your WoW directory.")
End Try
clearCache()
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim realmlist As StreamWriter = New StreamWriter("realmlist.wtf", False)
realmlist.WriteLine("set realmlist us.logon.worldofwarcraft.com")
realmlist.WriteLine("set patchlist us.version.worldofwarcraft.com")
realmlist.Close()
Try
startProcess("wow.exe")
Catch
MsgBox("wow.exe not found. Please make sure this is in your WoW directory.")
End Try
clearCache()
Me.Close()
End Sub
Private Function startProcess(ByVal filename As String)
Dim install = New Process()
install.StartInfo.FileName = filename
install.Start()
startProcess = 1
End Function
Private Function clearCache()
Dim location As String = App_Path()
Dim s As String
Try
For Each s In System.IO.Directory.GetFiles(location & "cache\wdb\enus")
System.IO.File.Delete(s)
Next s
Catch
MsgBox("Sorry, this launcher only works with enUS versions of WoW.")
End Try
clearCache = 1
End Function
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Start("http://wow-v.com/vote.php?id=1883")
Button2.Text = "Frozen Warground"
Button2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
count = count - 1
Button2.Text = "Frozen Warground (" & count & ")"
If count = 0 Then
Button2.Text = "Frozen Warground"
Button2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
count = 10
Button2.Enabled = False
Timer1.Enabled = True
trayicon.ShowBalloonTip(10000)
End Sub
Public Function App_Path() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
End Class
Screenshot:
Please make sure you give me credits if you use my code.
![[Image: fwglauncherss.jpg]](http://i36.photobucket.com/albums/e39/aquabug/fwglauncherss.jpg)
rektbyfaith
11-04-2025, 12:45 PM #1Archived author: Emptie[Imp] • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: This launcher was designed for a server that no longer exists, but the code could be changed slightly and work with any server.
Code:
Imports System.IO
Imports System.Diagnostics.Process
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim realmlist As StreamWriter = New StreamWriter("realmlist.wtf", False)
realmlist.WriteLine("set realmlist frozenwarground.kicks-ass.net")
realmlist.Close()
Try
startProcess("wow.exe")
Catch
MsgBox("wow.exe not found. Please make sure this is in your WoW directory.")
End Try
clearCache()
Me.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim realmlist As StreamWriter = New StreamWriter("realmlist.wtf", False)
realmlist.WriteLine("set realmlist us.logon.worldofwarcraft.com")
realmlist.WriteLine("set patchlist us.version.worldofwarcraft.com")
realmlist.Close()
Try
startProcess("wow.exe")
Catch
MsgBox("wow.exe not found. Please make sure this is in your WoW directory.")
End Try
clearCache()
Me.Close()
End Sub
Private Function startProcess(ByVal filename As String)
Dim install = New Process()
install.StartInfo.FileName = filename
install.Start()
startProcess = 1
End Function
Private Function clearCache()
Dim location As String = App_Path()
Dim s As String
Try
For Each s In System.IO.Directory.GetFiles(location & "cache\wdb\enus")
System.IO.File.Delete(s)
Next s
Catch
MsgBox("Sorry, this launcher only works with enUS versions of WoW.")
End Try
clearCache = 1
End Function
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Start("http://wow-v.com/vote.php?id=1883")
Button2.Text = "Frozen Warground"
Button2.Enabled = True
Timer1.Enabled = False
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
count = count - 1
Button2.Text = "Frozen Warground (" & count & ")"
If count = 0 Then
Button2.Text = "Frozen Warground"
Button2.Enabled = True
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
count = 10
Button2.Enabled = False
Timer1.Enabled = True
trayicon.ShowBalloonTip(10000)
End Sub
Public Function App_Path() As String
Return System.AppDomain.CurrentDomain.BaseDirectory()
End Function
End Class
Screenshot:
Please make sure you give me credits if you use my code.
11-04-2025, 12:45 PM
Original source
Quote: I need some code to auto log the person in I can't get the timing right to fill in the boxes
rektbyfaith
11-04-2025, 12:45 PM #2Archived author: Kuraria • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: I need some code to auto log the person in I can't get the timing right to fill in the boxes
11-04-2025, 12:45 PM
Original source
Quote: Dont work for me :/
Code:
------ Operación Volver a generar todo iniciada: proyecto: WindowsApplication2, configuración: Debug Any CPU ------
E:WINDOWSMicrosoft.NETFrameworkv3.5Vbc.exe /noconfig /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Generic,System.Data,System.Drawing,System.Diagnostics,System.Windows.Forms,System.Linq,System.Xml.Linq /optioncompare:Binary /optionexplicit+ /optionstrict:custom /nowarn:42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 /optioninfer+ /rootnamespace:WindowsApplication2 /doc:objDebugWindowsApplication2.xml /define:"CONFIG="Debug",DEBUG=-1,TRACE=-1,_MyType="WindowsForms",PLATFORM="AnyCPU"" /reference:"E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Core.dll","E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Data.DataSetExtensions.dll",E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Data.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Deployment.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Drawing.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Windows.Forms.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Xml.dll,"E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Xml.Linq.dll" /main:WindowsApplication2.My.MyApplication /debug+ /debug:full /filealign:512 /out:objDebugWindowsApplication2.exe /resource:objDebugWindowsApplication2.Form1.resources /resource:objDebugWindowsApplication2.Resources.resources /target:winexe Form1.vb Form1.Designer.vb "My ProjectAssemblyInfo.vb" "My ProjectApplication.Designer.vb" "My ProjectResources.Designer.vb" "My ProjectSettings.Designer.vb"
Eocuments and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(6) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
========== Volver a generar todo: 0 correctos, 1 incorrectos, 0 omitidos ==========
rektbyfaith
11-04-2025, 12:45 PM #3Archived author: kaothic • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: Dont work for me :/
Code:
------ Operación Volver a generar todo iniciada: proyecto: WindowsApplication2, configuración: Debug Any CPU ------
E:WINDOWSMicrosoft.NETFrameworkv3.5Vbc.exe /noconfig /imports:Microsoft.VisualBasic,System,System.Collections,System.Collections.Generic,System.Data,System.Drawing,System.Diagnostics,System.Windows.Forms,System.Linq,System.Xml.Linq /optioncompare:Binary /optionexplicit+ /optionstrict:custom /nowarn:42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 /optioninfer+ /rootnamespace:WindowsApplication2 /doc:objDebugWindowsApplication2.xml /define:"CONFIG="Debug",DEBUG=-1,TRACE=-1,_MyType="WindowsForms",PLATFORM="AnyCPU"" /reference:"E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Core.dll","E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Data.DataSetExtensions.dll",E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Data.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Deployment.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Drawing.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Windows.Forms.dll,E:WINDOWSMicrosoft.NETFrameworkv2.0.50727System.Xml.dll,"E:Archivos de programaReference AssembliesMicrosoftFrameworkv3.5System.Xml.Linq.dll" /main:WindowsApplication2.My.MyApplication /debug+ /debug:full /filealign:512 /out:objDebugWindowsApplication2.exe /resource:objDebugWindowsApplication2.Form1.resources /resource:objDebugWindowsApplication2.Resources.resources /target:winexe Form1.vb Form1.Designer.vb "My ProjectAssemblyInfo.vb" "My ProjectApplication.Designer.vb" "My ProjectResources.Designer.vb" "My ProjectSettings.Designer.vb"
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
E
========== Volver a generar todo: 0 correctos, 1 incorrectos, 0 omitidos ==========
11-04-2025, 12:45 PM
Original source
Quote: i will test this
rektbyfaith
11-04-2025, 12:45 PM #4Archived author: atersi • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: i will test this
11-04-2025, 12:45 PM
Original source
Quote: yeah dude you should provide a link to a guide so ppl will know wat to do with this...anyways the screen shot is pointless because ppl have to make their own unless you're downloading something, and anyways while making my own, i couldnt even get the code to work...
rektbyfaith
11-04-2025, 12:45 PM #5Archived author: colincancer • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: yeah dude you should provide a link to a guide so ppl will know wat to do with this...anyways the screen shot is pointless because ppl have to make their own unless you're downloading something, and anyways while making my own, i couldnt even get the code to work...
11-04-2025, 12:45 PM
Original source
Quote: If someone can get this working it would be much appreciated
rektbyfaith
11-04-2025, 12:45 PM #6Archived author: fastelf • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: If someone can get this working it would be much appreciated
11-04-2025, 12:45 PM
Original source
Quote: Hello,
I noticed you only posted the code but no forms etc, so I made some modifications and this is what I came up with:
It has a basic news-system, which gets text-file content from a webserver.
Rar Incl:Download:
- Source files (*.sln,*.vb etc)
- Header *.PSD
Filebeam - Free Fast File Hosting
RapidShare: Easy Filehosting
:wave:
![[Image: sbniap.png]](http://i36.tinypic.com/sbniap.png)
rektbyfaith
11-04-2025, 12:45 PM #7Archived author: j00nas • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: Hello,
I noticed you only posted the code but no forms etc, so I made some modifications and this is what I came up with:
It has a basic news-system, which gets text-file content from a webserver.
Rar Incl:Download:
- Source files (*.sln,*.vb etc)
- Header *.PSD
Filebeam - Free Fast File Hosting
RapidShare: Easy Filehosting
:wave:
11-04-2025, 12:45 PM
Original source
Quote:+Rep for J00nas
![[Image: wink.png]](https://www.ownedcore.com/forums/images/smilies/wink.png)
rektbyfaith
11-04-2025, 12:45 PM #8Archived author: Rec Alpam • Posted: 2025-11-04T13:45:50.626140
Original source
Quote:+Rep for J00nas
11-04-2025, 12:45 PM
Original source
Quote: Nice contribution J00nas +rep x2
rektbyfaith
11-04-2025, 12:45 PM #9Archived author: Aelus • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: Nice contribution J00nas +rep x2
11-04-2025, 12:45 PM
Original source
Quote: Nice, im gonna use this for mine!
rektbyfaith
11-04-2025, 12:45 PM #10Archived author: Toxcito • Posted: 2025-11-04T13:45:50.626140
Original source
Quote: Nice, im gonna use this for mine!
Recently Browsing
1 Guest(s)
1 Guest(s)
Recently Browsing
1 Guest(s)
1 Guest(s)