[Vb-2008] Paar tutorials... - Pagina 2

Autoclicker

Quote:
Voor dit heb je visual basic 2008 ( vb8 ) nodig, dit is een programma waarmee je kan programmeren.

Visual basic 2008 ( vb8 ) download link: www.microsoft.com/express/download
Je hebt de express edition nodig.

1 ) Dubbelklik op je form en zet deze code helemaal bovenaan, onder "public class form1":

-----BEGIN VAN CODE-----
Private Declare Sub mouse_event Lib "User32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSELEFTDOWN = &H2
Private Const MOUSELEFTUP = &H4
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
-----EINDE VAN CODE-----

2 ) Add een timer, een textbox en een button op je form.

3 ) Klik 1x op de timer, ga naar properties, enabled moet op false staan, en interval moet 1000 zijn.

4 ) Klik 1x op de button, ga naar properties en verander de text (button1) naar: Start!

5 ) Dubbelklik nu op je button en add deze code:

-----BEGIN VAN CODE-----
If TextBox1.Text = ("") Then
MsgBox("Je moet een getal invoeren in.")
Else
timer1.enabled = true

-----EINDE VAN CODE-----

Dus, als je niets invoerd in de textbox dan krijg komt er een msgbox tevoorschijn waar op staat: je moet een getal invoeren.
Maar als je een cijfer hebt ingevoerd dan start timer1.
Dus, als je nu op de button klikt dan staat de timer aan, dan werkt hij.

6 ) Dubbelklik nu op je button en add deze code:

-----BEGIN VAN CODE-----
Timer1.Interval = Val(TextBox1.Text)
mouse_event(MOUSELEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSELEFTUP, 0, 0, 0, 0)
-----EINDE VAN CODE-----

Timer1.interval = val(textbox1.text) betekend dat het getal dat je in de textbox zet, zegt om de hoeveel seconden je klikt (als je 1000 in de textbox typt dan klikt het om elke second)

7 ) Je auto-clicker werkt al, maar we gaan ervoor zorgen dat hij stopt als je de toetsen control en s tegelijk indrukt.

8 ) Maak een 2e timer aan, zet de interval op 1 en enabled op true.

9 ) dubbelklik op je 2e timer, en typ dit:

-----BEGIN VAN CODE-----
If GetAsyncKeyState(17) And GetAsyncKeyState(83) Then Timer1.Enabled = False
-----EINDE VAN CODE-----

Dit betekend: als je control en s tegelijk indrukt dat timer 1 stopt, dus de auto-clicker stopt.

Nu ben je klaar ^^

Guessing Game

Quote:
Add eerst twee buttons, een textbox een een label op je form.
Noem de textbox "txtNumber", noem een button "btnCheck", noem de andere button "btnNewNumber" en noem de label "lblInfo" (dit doe je door in de propertiebox het vakje (Name) te veranderen).
Zet ook als tekst op btncheck "Check", als tekst op btnNewNumber "New Number", als tekst op lblInfo "-" en als tekst van form1 "Guessing Game" (dit doe je door in de propertiebox het vakje Text te veranderen).

Klik nu met je rechtermuisknop op de form en klik op View Code, nu zie je waarschijnlijk iets als:

Public Class Form1

End Class

Eerst moet je er een nieuwe functie zetten (niet echt nodig, maar overzichtelijker, anders moet je alles in de buttons zetten).

Function NewNumber()
        Dim Random As New Random
        Dim intNumber As Integer = Random.Next(0, 100)
        Return intNumber
    End Function

Alles tussen Function NewNumber() en End Function behoort tot deze functie.
Bij Dim Random As New Random mag je de eerste "Random" vervangen door wat je wilt, maar dan moet je ook de "Random" op het lijntje daarachter aanpassen.
Op het derde lijntje declareer je intNumber als een integer (een nummer), en zeg je dat het gelijk is aan een random getal tussen 0 en 100.
In een functie moet je altijd Return * hebben, daar dient een functie namelijk voor, wat na de return staat, geeft de functie door, hier geeft het bijvoorbeeld intNumber het nummer tussen 0 en 100 door.

Ga nu terug naar je form, en dubbelklik op de btnNewNumber.
Eerst moet je onder Public Class Form1 dit zetten:

Dim intNumber As Integer

Als je het daar zet, bij de global declarations, kan niet 1 functie of 1 sub die integer veranderen, maar kunnen ze het allemaal.
Ga nu terug naar de sub van je button, en typ dit:

intNumber = NewNumber()
        lblInfo.Text = "-"

Bij het eerste lijntje zeg je dat de integer dat je daarjuist gedeclareerd hebt gelijk is aan de functie NewNumber(), dat is dus wat achter de return staat, een random getal van 0 tot 100.
Dat zeg je dat de tekst van lblInfo terug gelijk is aan "-", want later zal die veranderen.

Ga weer naar je form, en dubbelklik op btnCheck.
Zet er dit:

If txtNumber.Text = "" Then
            MsgBox("Please put a number in the textbox!", MsgBoxStyle.Critical, "Error")
            Exit Sub
        End If
        If CInt(txtNumber.Text) = intNumber Then MsgBox("You got the number!", MsgBoxStyle.Information, "Congratulations")
        If CInt(txtNumber.Text) < intNumber Then lblInfo.Text = "The number is higher than " & txtNumber.Text
        If CInt(txtNumber.Text) > intNumber Then lblInfo.Text = "The number is lower than " & txtNumber.Text
        If CInt(txtNumber.Text) > 100 Then lblInfo.Text = "The number is lower than 101"

Eerst zeg je dat als de tekst in de textbox gelijk is aan niets (dat de gebruiker er niets ingevoerd heeft), dat er een messagebox moet inkomen met de tekst "Please put a number in the textbox!", met het icoontje en het geluid van een error, en met titel "Error".
Exit Sub sluit de sub, dus hij gaat niet meer naar het volgende lijntje.
Dan staat er "If Cint(txtNumber.text) = intnumber Then...", txtNumber.text is eigenlijk geen integer, maar een string. Maar we moeten bepalen of wat je ingevoerd hebt gelijk is aan het nummer, en een string met een integer vergelijken gaat niet. Dus we gebruiken CInt (C staat denk ik voor Convert, en Int voor Integer), het nummer dat in txtNumber.text staat is nu dus een integer voor even, en kunnen we het vergelijken met het getal. Dus als wat er in je textbox staat gelijk is aan het nummer, zegt hij dat je het nummer hebt.
Dan staat er If Cint(txtNumber.text) < intNumber Then... dat is eigenlijk hetzelfde als erjuist, maar nu gebeurt er iets als het ingevoerde nummer kleiner is dan het juiste nummer. Then lblInfo.Text = "The number is higher than " & txtNumber.text, dit veranderd de tekst van lblInfo dus naar The number is higher than " en je nummer (dit is gewoon voor de gebruiker wat info te geven).
Daarna is het ongeveer hetzelfde, alleen nu met >.
En het laatste lijntje zegt dat als het ingevoerde nummer groter is dan 100 (101 of meer dus), de tekst in de label verandert naar "The number is lower than 101", want 100 is het maximum nummer.

Dit was het, veel plezier met je klein gok spelletje

Als je vragen hebt kun je emailen naar jasper_catthoor@hotmail.com

LoginBox

Quote:
Voor dit heb je visual basic 2008 ( vb8 ) nodig, dit is een programma waarmee je kan programmeren, hiermee werden vroeger de warrock hacks gemaakt, maar toen warrock een master update deed, werkte het hack maken met vb8 nietmeer =/

Visual basic 2008 ( vb8 ) download link: www.microsoft.com/express/download
Je hebt de express edition nodig.

1 ) Start vb8 op en maak een nieuw project (dit doe je door te klikken op create project en dan ok.

2 ) Add een textbox en een button (dit doe je door te dubbelklikken op de textbox en de button aan de linkerkant van je scherm, de toolbox).

3 ) Klik 1 keer op de button, ga nu naar properties (rechts onderaan op je scherm), scroll down naar text, normaal staat er button1, verander het naar Login!

4 ) Dubbelklik nu op de button, normaal staat er:

Quote:
[codeer]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub[/codeer]

5 ) Typ daartussen:

Quote:
[codeer]If TextBox1.Text = ("PASS") Then
MsgBox("Je hebt het juiste wachtwoord ingevoerd.")
Else
MsgBox("Je hebt het foute wachtwoord ingevoerd.")
End If[/codeer]

6 ) Nu ziet het er normaal zo uit:

Quote:
[codeer]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ("PASS") Then
MsgBox("Je hebt het juiste wachtwoord ingevoerd.")
Else
MsgBox("Je hebt het foute wachtwoord ingevoerd.")
End If
End Sub[/codeer]

7 ) Het wachtwoord is nu PASS, je kan het veranderen door PASS te veranderen naar iets anders.

8 ) Als je het juiste wachtwoord hebt ingevoerd komt er een messagebox dat zegt: Je hebt het juiste wachtwoord ingevoerd, als je het fout hebt: Je hebt het foute wachtwoord ingevoerd.
Deze text kan je ook veranderen.)

9 ) Als je het wachtwoord invoerd in de textbox, zie je de letters die je typt, je kan dit veranderen, klik 1 keer op je textbox ga weer naar properties, scroll down naar passwordchar, en daar kun je iets invoeren, bijvoorbeeld *

Nu ben je klaar =P

All credits to me ^^

Spammer

Quote:
Voor dit heb je visual basic 2008 ( vb8 ) nodig, dit is een programma waarmee je kan programmeren.
Visual basic 2008 ( vb8 ) download link: www.microsoft.com/express/download
Je hebt de express edition nodig.

Deze spammer werkt wel niet op warrock, daar zal ik nog iets op vinden

1 ) Open visual basic 2008, klik op create project, en dan op ok.

2 ) Add 2 labels, 2 textboxes, een button en 3 timers.

3 ) Dubbelklik op je form, nu zie je:

Quote:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

Je mag private sub... en end sub wegdoen, dan blijft alleen dit nog over:

Quote:
Public Class Form1

End Class

4 ) Onder Public Class Form1 moet je dit zetten: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dit zorgt ervoor dat je met keys kan werken van je toetsenbord.

5 ) Klik 1 keer op button1, ga naar properties, zoek daar naar text, en verander de text naar: Start spammen!
Doe dit bij label1 ook, maar daar moet de text zijn: text:
Doe dit bij label2 ook, maar daar moet de text zijn: interval:

6 ) Zet textbox1 achter de label waar in staat: text:
Zet textbox2 achter de label waar in staat: interval:

7 ) Klik 1 keer op timer1 en ga naar properties, enabled is true en interval is 1000
Klik 1 keer op timer2 en ga naar properties, enabled = true en interval is 10
Klik 1 keer op timer3 en ga naar properties, enabled = true en interval is 1

8 ) Dubbelklik nu op button1 (Start spammen!) en zet er deze code in:

Quote:
Timer1.Enabled = True

Als je nu op de button klikt, dan start timer1.

9 ) Dubbelklik nu op timer1, en typ:

Quote:
[codeer]
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{enter}")
[/codeer]

Dit betekend dat hij typt wat er in textbox1 staat, en dan op enter klikt.

10 ) Dubbelklik nu op timer2, en typ:

Quote:
[codeer]
If TextBox2.Text = ("") Then
Timer1.Enabled = False
TextBox2.Text = 1000
Timer1.Interval = 1000
End If
If TextBox2.Text = 0 Then
Timer1.Enabled = False
TextBox2.Text = 1000
Timer1.Interval = 1000
End If
Timer1.Interval = TextBox2.Text
If Timer1.Enabled = True Then TextBox2.Enabled = False
If Timer1.Enabled = True Then TextBox1.Enabled = False
If Timer1.Enabled = False Then TextBox2.Enabled = True
If Timer1.Enabled = False Then TextBox1.Enabled = True
[/codeer]

Dit betekend: als er niets in textbox2 staat, dan timer1.enabled = false, de text van textbox 2 word "1000" en de interval van timer1 word ook "1000".
als de text van textbox 2 een nul is, dan timer1.enabled= false, de text van textbox 2 word "1000" en de interval van timer1 word ook "1000".
timer1.interval = textbox2.text: de interval van timer1 is hetzelfde dat je in textbox 2 zet (interval = wachttijd, 1000 interval = 1 second).
de laatste vier zinnen: als timer1 = enabled dan is textbox2 en textbox1 niet enabled (dan kan je er niets in typen of veranderen).
als timer1 = niet enabled dan is textbox2 en textbox1 wel enabled (dan kan je er wel in typen en dingen veranderen).
Dit alles zorgt ervoor dat de spammer niet vastloopt als je perongeluk een "0" of niets in de textbox voor interval zet.

11 ) Nu het laatste, dubbelklik op timer3 en zet er:

Quote:
If GetAsyncKeyState(17) And GetAsyncKeyState(83) Then Timer1.Enabled = False

Dit betekend: als je de toetsen: "Ctrl" en "s" tegelijk indrukt, dat de spammer stopt.

[codeer]Je bent klaar

[/codeer]

Credits: all to me ^^
Quote:
Keys

Quote:
vbKeyLButton (1)
vbKeyRButton (2)
vbKeyCancel (3)
vbKeyMButton (4)
vbKeyBack (8)
vbKeyTab (9)
vbKeyClear (12)
vbKeyReturn (13)
vbKeyShift (16)
vbKeyControl (17)
vbKeyMenu (18)
vbKeyPause (19)
vbKeyCapital (20)
vbKeyEscape (27)
vbKeySpace (32)
vbKeyPageUp (33)
vbKeyPageDown (34)
vbKeyEnd (35)
vbKeyHome (36)
vbKeyLeft (37)
vbKeyUp (38)
vbKeyRight (39)
vbKeyDown (40)
vbKeySelect (41)
vbKeyPrint (42)
vbKeyExecute (43)
vbKeySnapshot (44)
vbKeyInsert (45)
vbKeyDelete (46)
vbKeyHelp (47)
vbKeyNumlock (144)
vbKeyScrollLock (145)

Alphabetic Key Code Constants

VbKeyA (65)
VbKeyB (66)
VbKeyC (67)
VbKeyD (68)
VbKeyE (69)
VbKeyF (70)
VbKeyG (71)
VbKeyH (72)
VbKeyI (73)
VbKeyJ (74)
VbKeyK (75)
VbKeyL (76)
vbKeyM (77)
VbKeyN (78)
VbKeyO (79)
VbKeyP (80)
VbKeyQ (81)
VbKeyR (82)
VbKeyS (83)
VbKeyT (84)
VbKeyU (85)
VbKeyV (86)
VbKeyW (87)
VbKeyX (88)
VbKeyY (89)
VbKeyZ (90)

Numeric Key Constants

vbKey0 (48)
vbKey1 (49)
vbKey2 (50)
vbKey3 (51)
vbKey4 (52)
vbKey5 (53)
vbKey6 (54)
vbKey7 (55)
vbKey8 (56)
vbKey9 (57)

Numeric Keypad Key Constants

vbKeyNumpad0 (96)
vbKeyNumpad1 (97)
vbKeyNumpad2 (98)
vbKeyNumpad3 (99)
vbKeyNumpad4 (100)
vbKeyNumpad5 (101)
vbKeyNumpad6 (102)
vbKeyNumpad7 (103)
vbKeyNumpad8 (104)
vbKeyNumpad9 (105)
VbKeyMultiply (106)
VbKeyAdd (107)
VbKeySeparator (108)
VbKeySubtract (109)
VbKeyDecimal (110)
VbKeyDivide (111)

Function Key Constants

vbKeyF1 (112)
vbKeyF2 (113)
vbKeyF3 (114)
vbKeyF4 (115)
vbKeyF5 (116)
vbKeyF6 (117)
vbKeyF7 (118)
vbKeyF8 (119)
vbKeyF9 (120)
vbKeyF10 (121)
vbKeyF11 (122)
vbKeyF12 (123)
vbKeyF13 (124)
vbKeyF14 (125)
vbKeyF15 (126)
vbKeyF16 (127)

Wouterr

Lid