| View previous topic :: View next topic |
| Author |
Message |
kuike
Joined: 26 Mar 2006
Posts: 15
|
 Posted: Tue Mar 28, 2006 4:43 pm Post subject: plaats alle leuke VBscripts hier |
 |
|
| plaats al jullie scripts hier met de bedoeling wat ze doen |
|
| Back to top |
|
 |
kuike
Joined: 26 Mar 2006
Posts: 15
|
| Posted: Tue Mar 28, 2006 4:43 pm Post subject: Autotalker |
|
|
Dit is een Autotalker.
Hij vraagd eerst of je m wil gebruiken.
Dan vraagd ie wat je wil typen.
Dan vraagd ie hoevaak.
Ik gebruik m zelf voor een onlinespel: runescape maar je kan hem ook voor andere spellen gebruiken.
Je kan de waarde van sleep verandere zodat ie sneller het woord stuurt.
je kan er ook een datum op zetten zodat ie maar een aantal dagen doet.
Als je er dan een datum in wil dan moet je het er gewoon boven aan zetten en dan kan je gewoon de datum verandere.
datum
| Code: | If Date > CDate("22-04-2006") then X = msgbox ("Deze Autotalker® is verlopen.", 1024, "Autotalker® ")
If Date > CDate("22-04-2006") Then Wscript.Quit |
De Autotalker
| Code: | vraag=inputbox ("Wil je nu de Autotalker® gaan gebruiken [y/n]??","Autotalker®")
If (vraag ) = "n" Then: Wscript.Quit
If (vraag) = "y" Then: a=inputbox("Typ dan hier je zin:", "Autotalker®")
If (a) = Cancel Then Wscript.Quit
Dim a
Dim text
Dim o
h=inputbox ("Hoevaak moet het worden getypt?", "Autotalker®")
text = h
If (h) = Cancel Then Wscript.Quit
Set WshShell = WScript.CreateObject ("WScript.Shell")
For o = 1 To text
WshShell.SendKeys +a
WScript.Sleep 2500
WshShell.SendKeys "{ENTER}"
Next |
|
|
| Back to top |
|
|
Guest
|
| Posted: Tue Mar 28, 2006 5:04 pm Post subject: |
|
|
nothing in here you couldn't do with AHK...
why are you posting this anyway? |
|
| Back to top |
|
|
peejay
Joined: 04 Mar 2005
Posts: 40
Location: Netherlands
|
| Posted: Tue Mar 28, 2006 5:45 pm Post subject: |
|
|
It is nice to read Dutch here for a change (for me, anyway  ). And no, it wasn't me!
The title translates as "Place all your nice VBscripts here" (well, maybe you all guessed that).
Maybe the author was confused!?
_________________
The Gods smile upon you. Beware - it is probably because they know what is going to happen to you next, and find it amusing. To them, anyway. --- Discworld Horrorscope: http://www.weirdnes.force9.co.uk/stars3.html |
|
| Back to top |
|
|
Greg
Joined: 22 Dec 2005
Posts: 246
|
| Posted: Tue Mar 28, 2006 5:48 pm Post subject: |
|
|
| I don't understand how "datum" is considered a nice script. If the date is some hard coded date, then prints something about that date. Just incase you forgot? |
|
| Back to top |
|
|
PhiLho
Joined: 27 Dec 2005
Posts: 6721
Location: France (near Paris)
|
| Posted: Tue Mar 28, 2006 6:24 pm Post subject: |
|
|
| peejay wrote: | | Maybe the author was confused!? |
Doubly confused: this is an English forum, and specific about the AutoHotkey language...
Is this spam?
_________________
 vPhiLho := RegExReplace("Philippe Lhoste", "^(\w{3})\w*\s+\b(\w{3})\w*$", "$1$2") |
|
| Back to top |
|
|
Chris
Site Admin
Joined: 02 Mar 2004
Posts: 10467
|
| Posted: Tue Mar 28, 2006 6:32 pm Post subject: |
|
|
| Since the Scripts forum is intended for AHK scripts (not VBscript or other languages), I've moved this topic to Utilities & Resources. |
|
| Back to top |
|
|
peejay
Joined: 04 Mar 2005
Posts: 40
Location: Netherlands
|
| Posted: Wed Mar 29, 2006 5:11 pm Post subject: |
|
|
| Greg wrote: | | I don't understand how "datum" is considered a nice script. If the date is some hard coded date, then prints something about that date. Just incase you forgot? |
Well, | Quote: | | je kan er ook een datum op zetten zodat ie maar een aantal dagen doet. |
translates as
"You can also set a date, so it will only work for a limited number of days."
But it would have helped if the author had written in English...
_________________
The Gods smile upon you. Beware - it is probably because they know what is going to happen to you next, and find it amusing. To them, anyway. --- Discworld Horrorscope: http://www.weirdnes.force9.co.uk/stars3.html |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
