DATA String Command on Feb 3, 2012 in VB6 Script 'mostly i used this code when im in coding vb6database'Begin Here----------------- dim dbs as database,rst as recordset'-----------Form_load()set dbs=opendatabase(app.path & "\database.mdb")'-----------command()set rst=dbs.openrecordset(" SELECT...
Simple Shutdown Script on Jan 13, 2012 in VB6 Script 'shutdownShell "Shutdown -s -f -t 0"'logoffShell "Shutdown -l -f -t 0"'restartShell "Shutdown -r -f -t 0"...
Minimized hide script on Jan 13, 2012Private Sub Form_Resize()If Me.WindowState = vbMinimized Then Me.Hide End IfEnd Sub...
self deleter script on Jan 13, 2012 in VB6 Script Sub KillMe()Dim ff As Integer, batname As String, ext As String, batnum As Long ChDir App.Path ext = ".bat" Do batname = "DelMe" & Format(batnum) &...
Systray icon script on Jan 13, 2012 in VB6 Script Private Sub Form_Load() With nid .cbSize = Len(nid) ...
screenshot script on Jan 13, 2012 in VB6 Script '**************************************' Name: Screenshot Without Using Clipboard Or DIB' Description:Seen many posts using api for printscreen keypress, but what about the info on clipboard? Seen others that copy clipboard to temp var, and set back...
Disable mouse-keyboard on Jan 13, 2012 in VB6 Script Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As LongPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Form_Activate()DoEvents'block the mouse and keyboard inputBlockInput True'wait 10 second...
date and time script on Jan 12, 2012Private Sub Command1_Click()MsgBox "The system date is " & Date & " " & Time()End Sub...
creating batchfile script on Jan 12, 2012 in VB6 Script Open "C:\demo.bat" For Append As 1Print #1, Text1.TextClose 1...
Local IP and HOST VB6 Script on Jan 12, 2012 in VB6 Script Private Sub Command1_Click()'gets local ip and displays it in the text controlText1.Text = Winsock1.LocalIP'gets local host name and displays it in the text controlText2.Text = Winsock1.LocalHostNameEnd Sub...
