VB.Net Spam Bot programmieren [Tutorial]
lima-city → Forum → Sonstiges → Spam und sonstiges Unvergütetes
button
code
double
einfacher code
ersten blick
hirn
idiot
import
keyboard
kollege
label
null
pack
rein code
sache
show
start
text
variante code
wirkung
-
Willkommen zu diesem Hilfreichen TuT :D
Ihr braucht eine Textbox, 2 Button, einen Timer, und euer Hirn
1. Wenn ihr alle diese Sachen erstellt habt klickt ihr zweimal auf den Button(1).
Und schreibt reinTimer1.Start()
2. Ihr öffnet Button(2) und schreibt reinTimer1.Stop()
3. Ihr öffnet Timer1 und schreibt reinSendKeys.Keyboard (Textbox1.Text)
4. Ihr seit fertig!
Kleines Tutorial aber eine große wirkung :D -
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage
-
das geht doch viel einfacher:
import sys from Tkinter import * def change_text(): label_01.config(text="Because you are using \n programming, for kidding \n") button_01.config(text="You got me",command=exit_script) def exit_script(): window.destroy() sys.exit(0) window = Tk() window.title("iDiot") window.geometry("300x80-600-400") label_01 = Label(window,text="You are an iDiot \n\n") label_01.pack() button_01 = Button(window,text="Why ?",command=change_text) button_01.pack() window.mainloop()
-
Eiso für mich persönlicher ist meine Variante die einfache xD
deine hab ich auf den ersten blick garnett so gecheckt -
Wieso? Ist doch ganz einfach. Hier nochmal eine andere Variante:
frame = wx.wxFrame( wx.NULL, wx.wxID_ANY, "iDiot" ) sizer = wx.wxBoxSizer( wx.wxVERTICAL ) label = wx.wxStaticText( frame, wx.wxID_ANY, "You are an iDiot" ) button = wx.wxButton( frame, wx.wxID_ANY, "Why?" ) b_id = button:GetId() sizer:Add( label ) sizer:Add( button ) frame:Connect( b_id, wx.wxEVT_COMMAND_BUTTON_CLICKED, function () label:SetLabel( "Because you are programming in VB" ) button:SetLabel( "You got me" ) frame:Connect( b_id, wx.wxEVT_COMMAND_BUTTON_CLICKED, function () frame:Close() end ) end ) frame:SetSizer( sizer ) frame:Show( true )
-
^^ lustig
meine variante:
Dim i As Double For i=0 to 1000 Step 0.1 MsgBox(Cstr(i)) Next
-
Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!
lima-city: Gratis werbefreier Webspace für deine eigene Homepage