❶ VB腳本問題 請指點
這個錯了。
VBSCall FindColorEx(0,0,1152,864,"db",0.8,1,x,y)
If x>=0 and y>=0
VBSCall FindColorEx(0,0,1152,864,"你要找的顏色",1,0.8,x,y)
顏色換成你要找的顏色就可以了。
MoveR 5,10 意思是在你當前滑鼠的位置移動 5,10 明白了吧.
就是假設當前滑鼠坐標是 300,500 那就讓滑鼠移動到，300+5,500+10
❷ 製作vb腳本
簡單點的可以綁定他的mac地址
但是mac
可以被指定 最好就是綁定他的硬碟序列號啦
如果限制時間還要有個網路校時功能 不然他該系統時間就可以用啦 ，網路時間可以從任意網站獲得
❸ 使用VB腳本 保護程序免受他人執行
如果只是這樣的功能，你很簡單的就能實現了，不用鉤子也可以。
你的軟體啟動後，添加註冊表啟動項RUN，然後檢測進程，如果是任務管理器，就結束它，如果是notepad，就先結束，然後彈出對話框要輸入密碼，正確才啟動notepad
❹ vb腳本可以這樣寫嗎
沒見樓主腳本代碼，無法判定是否寫對。VB腳本代碼遵循VB語言規范，是可按文本方法寫。
從樓主的代碼看，窗體沒有DataValue屬性。也沒有TEXTCOLOR屬性。
Me通常在代碼中表示窗體或;
Me 關鍵字像是隱含聲明的變數。這個關鍵字適用於類模塊中的每個過程。當類有多個實例時，Me
在代碼正在執行的地方提供引用具體實例的方法。要把當前執行類實例的有關信息傳遞到另一個模塊的過程，Me 非常有用。例如，假定模塊中有以下過程：
Sub ChangeFormColor(FormName As Form)
FormName.BackColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub
可以調用這個過程並使用下列語句將窗體類的當前實例作為參數傳遞。
ChangeFormColor Me
❺ WINCC 如何使用VB腳本
1、是的。 2、無需什麼條件。 3、可以。 4、這是對於外部變數的引用，對於內部變數則直接使用。 5、畫面名稱.對象.對象屬性。 6、可以。 7、對於外部變數，其讀寫要調用其read.Write方法。
❻ VB腳本 VB腳本
VB腳本就是VBScript,是微軟公司推出的網頁腳本語言,用於編寫網頁，VBScript不能獨立運行，必須嵌在網頁之中，通過瀏覽器來運行。
而VB是微軟公司推出的功能非常強大的編程工具，用於編寫各類應用程序。
二者的關系是：VBScript是VB的子集。編網頁時用的是VBScript。
❼ VB腳本怎麼寫啊
1、Private Sub Command1_Click()
Const msg1 As String="請在這里輸入你想顯示的一段話!"
Const msg2 As String="這里是對話框要顯示的標題."
MsgBox msg1,vbOkOnly,msg2 '此處代碼一定不能添加()
End Sub2、 form1按鈕點擊事件:
form2.show
form1.hide 3、
啟動VB程序，在窗體上放置6個命令按鈕，三個標簽，一個公用對話框、一個進度條、一個狀態欄和一個計時器，窗本的布置請參考附圖按鈕"Open MP3 File"是用來打開對話框選擇MP3文件，其他5個按鈕分別為Play(播放)、Pause(暫停)、Stopplay(停止播放)、Back(向後跳躍)、Prew(向前跳躍)。Label1用來表示歌曲當前時間；label2放在時度條的最左邊，Caption屬性為"00：00"；lable3放在時度條的右邊，用來表示歌曲總長。下面就可以編寫代碼了。首先在窗體的"通用聲明"部分聲明函數
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Dim mfn As String
下面就是各個對象的代碼了:
Private Sub Form_load()
mfn = ""
play.Enabled = False
pause.Enabled = False
stopplay.Enabled = False
back.Enabled = False
prew.Enabled = False
Timer1.Enabled = False
Timer1.Interval = 500
End Sub
Private Sub open_Click()
On Error GoTo err
With CommonDialog1
.CancelError = True
.Filter = "音樂文件|*.mp3;*.wav;*.mid"
.Flags = cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action = 1
stopplay_Click '停止按鈕同時可以設備初始化
mfn = .FileName '這個程序中文件名一定不能帶空格
Form1.Caption = .FileName
play.Enabled = True
End With
play_Click
Exit Sub
err:
End Sub
Private Sub play_Click()
On Error Resume Next
Dim t As Long
t = mciSendString("open " + mfn, 0&, 0, 0) 'Open後邊的空格一定不能丟
Dim ret As String * 128
t = mciSendString("status " + mfn + " length", ret, 128, 0)
'顯示歌曲總長
ret = Left(ret, 8)
If ret <> "" Then
ProgressBar1.min = 0
ProgressBar1.Max = Val(ret)
Label3.Caption = Gettime(Val(ret))
End If
play.Enabled = False
pause.Enabled = True
stopplay.Enabled = True
back.Enabled = True
prew.Enabled = True
t = mciSendString("status " + mfn + " mode", ret, 128, 0)
'得到設備的當前狀態，是播放還是暫停等等
ret = Left(ret, 8)
StatusBar1.Panels(1).Text = ret
'在狀態欄顯示播放狀態
t = mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value), 0&, 0, 0)
'開始播放
Timer1.Enabled = True
End Sub
Private Sub pause_Click()
t% = mciSendString("pause " + mfn, 0&, 0, 0)
'發出暫停的命令
play.Enable = True
pause.Enabled = False
stopplay.Enabled = True
back.Enabled = False
prew.Enabled = False
End Sub
Private Sub stopplay_Click()
t% = mciSendString("stop " + mfn, 0&, 0, 0)
t% = mciSendString("close " + mfn, 0&, 0, 0)
'停止播放
play.Enabled = True
pause.Enabled = False
stopplay.Enabled = False
back.Enabled = False
prew.Enabled = False
End Sub
Private Sub back_Click()
t% = mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value - (ProgressBar1.Max \ 10)), 0&, 0, 0) '向後跳一小段再播放
End Sub
Private Sub prew_Click()
t% = mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value + (ProgressBar1.Max \ 10)), 0&, 0, 0) '向前跳一小段再播放
End Sub
Private Sub Timer1_Timer()
Dim t As Long
Dim ret As String * 128
t = mciSendString("status " + mfn + " position", ret, 0, 0)
'得到當前播放位置
ret = Left(ret, 8)
ProgressBar1.Value = Val(ret)
Label1.Caption = Gettime(Val(ret))
'顯示歌曲當前時間
If ProgressBar1.Value = ProgressBar1.Max Then
stopplay_Click
End If
t = mciSendString("status " + mfn + " mode", ret, 128, 0)
ret = Left(ret, 8)
StatusBar1.Panels(1).Text = ret
End Sub
Private Sub Form_Unload(Cacel As Integer)
t% = mciSendString("stop " + mfn, 0&, 0, 0)
t% = mciSendString("close " + mfn, 0&, 0, 0)
End Sub
Private Function Gettime(position As Long) As String
'這個函數的功能是把以長整型表示的時間轉換為電子鍾式的"**:**"
Dim min, sec
min = position / 1000
min = min / 60
sec = min - Int(min)
min = Int(min)
sec = 60 * sec / 100
sec = Int(sec * 100)
Gettime = Str(min) + ":" + Str(sec)
End Function
❽ 關於用VB腳本編程的問題
1.
Dim n,i,s,r
n=CInt(InputBox("輸入N"))
r=""
For i=1 To n
If n Mod i=0 Then
If i<n Then
r=r&CStr(i)&"+"
Else
r=r&CStr(i)&"="
End If
s=s+i
End If
Next
r=r&CStr(s)
document.write r
2.
Dim lt500,gt500,eq500,n,t,i
n=CInt(InputBox("輸入N"))
For i=1 To n
t=Int(Rnd*1000)
If t<500 Then
lt500=lt500+1
ElseIf t=500 Then
eq500=eq500+1
ElseIf t>500 Then
gt500=gt500+1
End If
Next
document.write "生成"&CStr(n)+"個1000以內的數，其中小於500數有"&CStr(lt500)&"個,占"&CStr(Round(lt500/n*100,2))&"%,大於500的數有"&CStr(gt500)&"個,占"&CStr(Round(gt500/n*100,2))&"%"
❾ vb的腳本問題
<html>
<head>
<title>無標題文檔</title>
</head>
<body>
<h1>請輸入用戶名和密碼:<br>
用戶名:<input type="text" name="t1"> <br>
密 碼: <input type="password" name="p1"> <br>
<input type="button" value="提交" name="b1" onclick="b1click();">
<input type="button" value="重新查詢" name="b2" onclick="b2click();">
<br> 用JAVASCRIPT寫吧 就是個習慣問題 養成就好了
<SCRIPT LANGUAGE="VBScript">
Sub b1click()
if t1.value="張三" and p1.value="123" then
msgbox"歡迎"
else
msgbox"請重新輸入"
end if
End sub
Sub b2click()
'這句話沒看出你的邏輯 我給屏蔽了
't1.value=" "p1.value=" " end If
End sub
</SCRIPT>
</body>
</html>