• Home
 · 
• Miscellaneous
 · 
• this program opens 500 windows only by one click, you may be a trick for your friend,

this program opens 500 windows only by one click, you may be a trick for your friend,

this program opens 500 windows only by one click, you may be a trick for your friend,

Rate this program opens 500 windows only by one click, you may be a trick for your friend,

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' mailto: [email protected]

' http://vbsherif.memebers.easyspace.com

' visit it and download any of my 25 programs there.



' make a text box and name it "n"

' ask your user to enter a number between 1 to 100

' put the code below in a command box

' and let the user click on the command box

' about 500 windows will be opened.


Select Case N
Case 1 To 89
N = 90
Case N > 100
N = 95
End Select
Dim DD As Double
For I = 1 To N
DD = Shell("NOTEPAD")
DD = Shell("WINIPCFG")
DD = Shell("TELNET")
DD = Shell("NOTEPAD")
DD = Shell("WINIPCFG")
DD = Shell("TELNET")
Next I
N = "THANKS VERY MUCH , DATA TRANSFERED"
M = "DONNOT BE AFRAID ,I'S ONLY A JOKE,JUST CLOSE THE WINDOWS"
SORRY = "I'M AWFULLY SORRY"