2 corrected code
source | link

Visual Base 6 :)

Sub Main:Shell( "cmd ping 1.1.1.1 -n 1 -w 500>nul&&"""&App.Path &"\"&App.EXEName& """"):End Sub

To run, create a new project, add a module with this code, set the start-up object to "Sub Main", compile, and then run the executable.


More readable version:

Sub Main()
    Call Shell("cmd ping 1.1.1.1 -n 1 -w 3000 > nul && """ & App.Path & "\" & App.EXEName & """")
End Sub

Visual Base 6 :)

Sub Main:Shell("cmd ping 1.1.1.1 -n 1 -w 500>nul&&"""&App.Path &"\"&App.EXEName& """"):End Sub

To run, create a new project, add a module with this code, set the start-up object to "Sub Main", compile, and then run the executable.


More readable version:

Sub Main()
    Shell("cmd ping 1.1.1.1 -n 1 -w 3000 > nul && """ & App.Path & "\" & App.EXEName & """")
End Sub

Visual Base 6 :)

Sub Main:Shell "cmd ping 1.1.1.1 -n 1 -w 500>nul&&"""&App.Path &"\"&App.EXEName& """":End Sub

To run, create a new project, add a module with this code, set the start-up object to "Sub Main", compile, and then run the executable.


More readable version:

Sub Main()
    Call Shell("cmd ping 1.1.1.1 -n 1 -w 3000 > nul && """ & App.Path & "\" & App.EXEName & """")
End Sub
1
source | link

Visual Base 6 :)

Sub Main:Shell("cmd ping 1.1.1.1 -n 1 -w 500>nul&&"""&App.Path &"\"&App.EXEName& """"):End Sub

To run, create a new project, add a module with this code, set the start-up object to "Sub Main", compile, and then run the executable.


More readable version:

Sub Main()
    Shell("cmd ping 1.1.1.1 -n 1 -w 3000 > nul && """ & App.Path & "\" & App.EXEName & """")
End Sub