MMOwned - World of Warcraft Exploits, Hacks, Bots and Guides

Homepage Register FAQ Members Mark Forums Read Advertise Marketplace FPSowned


Go Back   MMOwned - World of Warcraft Exploits, Hacks, Bots and Guides > WoW Emulator Server > Programs
Reload this Page [Release]Custom Launcher[Vb.Net]
Programs This section is for programs that can be used on Emulated servers
[NO QUESTIONS HERE]

Reply
 
LinkBack Thread Tools
[Release]Custom Launcher[Vb.Net]
(#1)
Old
Emptie[Imp]'s Avatar
Emptie[Imp] is Offline
Sergeant
Rep Power: 1
Reputation: 10
Emptie[Imp] is on a distinguished road
 
Posts: 38
Join Date: May 2008
[Release]Custom Launcher[Vb.Net] - 07-17-2008

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.
Reply With Quote

Donate to remove ads.
(#2)
Old
Kuraria is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
Rep Power: 2
Reputation: 1
Kuraria is an unknown quantity at this point
 
Posts: 8
Join Date: Jul 2007
07-19-2008

I need some code to auto log the person in I can't get the timing right to fill in the boxes
Reply With Quote
(#3)
Old
kaothic's Avatar
kaothic is Offline
Site Donator
Rep Power: 2
Reputation: 7
kaothic is an unknown quantity at this point
 
Posts: 159
Join Date: Oct 2007
Location: 1n t3h b4dr00m
08-04-2008

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:Documents 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:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(19) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(53) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(55) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(56) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(57) : error BC30451: No se ha declarado el nombre 'Timer1'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(60) : error BC30506: La cláusula Handles requiere una variable WithEvents definida en el tipo contenedor o en uno de sus tipos base.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(61) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(61) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(62) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(62) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(63) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(64) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(65) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(66) : error BC30451: No se ha declarado el nombre 'Timer1'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(71) : error BC30451: No se ha declarado el nombre 'count'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(72) : error BC30451: No se ha declarado el nombre 'Button2'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(73) : error BC30451: No se ha declarado el nombre 'Timer1'.
E:Documents and SettingsKaothicMis documentosVisual Studio 2008ProjectsWindowsApplication2WindowsApplication2Form1.vb(74) : error BC30451: No se ha declarado el nombre 'trayicon'.
========== Volver a generar todo: 0 correctos, 1 incorrectos, 0 omitidos ==========



Only simple things make me feel alive...
Reply With Quote
(#4)
Old
atersi is Offline
Site n00b.. (A leecher if I've been here for more than a month and can't earn 5 rep)
Rep Power: 1
Reputation: 1
atersi is an unknown quantity at this point
 
Posts: 20
Join Date: Feb 2008
08-06-2008

i will test this
Reply With Quote
(#5)
Old
colincancer's Avatar
colincancer is Offline
Knight
Rep Power: 1
Reputation: 41
colincancer is on a distinguished road
 
Posts: 207
Join Date: Dec 2007
08-25-2008

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...


Reply With Quote
(#6)
Old
fastelf's Avatar
fastelf is Offline
Master Sergeant
Rep Power: 2
Reputation: 20
fastelf is on a distinguished road
 
Posts: 129
Join Date: Apr 2007
2 Weeks Ago

If someone can get this working it would be much appreciated


Earn $5 a referal
Code:
snapdollars.com/index/fast_elf
Reply With Quote
(#7)
Old
j00nas's Avatar
j00nas is Offline
Private
Rep Power: 1
Reputation: 5
j00nas is an unknown quantity at this point
 
Posts: 8
Join Date: Dec 2007
Location: Finland
2 Weeks Ago

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:
  • Source files (*.sln,*.vb etc)
  • Header *.PSD

Download:
[Only registered and activated users can see links. ]
[Only registered and activated users can see links. ]

Reply With Quote
(#8)
Old
didadonny's Avatar
didadonny is Offline
Master Sergeant
Rep Power: 2
Reputation: 20
didadonny is on a distinguished road
 
Posts: 105
Join Date: Mar 2007
Location: localhost
2 Weeks Ago

for J00nas


Reply With Quote
(#9)
Old
Aelus's Avatar
Aelus is Offline
Site Donator
Rep Power: 2
Reputation: 39
Aelus is on a distinguished road
 
Posts: 412
Join Date: Jan 2007
Location: In a box.
1 Week Ago

Nice contribution J00nas +rep x2



Credit to Piersd for the epic signature.
Reply With Quote
Reply

Donate to remove ads.

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are Off
Pingbacks are Off
Refbacks are On




Powered by vBulletin® Version 3.7.2
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBulletin Skin developed by: vBStyles.com


1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342