by sherif rofael (15 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 19th July 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
this program opens 500 windows only by one click, you may be a trick for your friend,
' 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"
No comments have been posted about this program opens 500 windows only by one click, you may be a trick for your friend,. Why not be the first to post a comment about this program opens 500 windows only by one click, you may be a trick for your friend,.