VB腳本試當前畫面

『壹』 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、首先點擊進入VBScript，找到腳本的頁面。
2、其次點擊腳本右上角的工具欄，找到一個方框的按鍵。
3、最後點擊該按鍵，即可進行畫面的設置，可以隨意更改畫面布局。

『叄』 WINCC 如何使用VB腳本

1、是的。 2、無需什麼條件。 3、可以。 4、這是對於外部變數的引用，對於內部變數則直接使用。 5、畫面名稱.對象.對象屬性。 6、可以。 7、對於外部變數，其讀寫要調用其read.Write方法。

『肆』 VB 運行JS腳本

試試這個 Private Function Unescape(ByVal pstrInput As String) As String
Dim objScrCtl As Object
Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
objScrCtl.Language = "JavaScript"
Unescape = objScrCtl.Eval("unescape('" & pstrInput & "')")
Set objScrCtl = Nothing
End Function

『伍』 VB高手來啊,關於打開文件的

在編程世界裡，VB（Visual Basic）語言憑借其簡潔的語法和豐富的庫函數，成為了許多開發者初學編程的首選。對於VB高手而言，如何優雅地打開文件，既考驗著編程技巧，也反映了對語言特性的深入理解。本文將圍繞如何在VB中打開文件這一主題，展開一次探索之旅。

首先，我們需要明確一點，VB提供了多種方法來打開文件，每種方法都有其適用場景。例如，使用`Open`語句可以實現文件的讀寫操作，而`Shell`方法則更多地被用作啟動外部程序。在`Command1_Click`事件處理程序中，作者通過調用`Shell(lj, 1)`來嘗試打開由`Text1.Text`指定的文件。這里，`lj`作為文件路徑傳入，`Trim`函數用於去除路徑兩端的空格，確保文件路徑的准確性。

在使用`Shell`方法時，`1`作為第二個參數，代表了`SHOW`模式，即顯示應用程序的窗口。這在需要用戶界面的場景下非常實用，如啟動一個圖形界面的應用程序。然而，這種方法也有其局限性，比如無法直接讀取文件內容，且對文件操作的控制不如`Open`語句靈活。因此，在需要進行更復雜文件操作的場景下，如讀取文本文件或執行批處理腳本，使用`Open`語句將更為合適。

進一步思考，如果我們的目標是執行腳本文件，`Shell`方法同樣能派上用場。例如，若`lj`指向的是一個批處理腳本或一個包含特定命令的文本文件，通過`Shell(lj, 1)`可以啟動並執行該腳本。在實際應用中，這種方法可以用來自動化任務，如自動編譯代碼、運行測試或更新系統配置等。

總結而言，在VB中打開文件並不局限於單一方法，選擇合適的工具取決於具體需求。無論是通過`Open`語句實現的文件讀寫操作，還是藉助`Shell`方法啟動外部程序，關鍵在於理解每種方法的特性和適用場景。作為VB高手，熟練掌握這些基礎操作，不僅能夠提高編程效率，還能為項目實現帶來更多的可能性。

『陸』 VB腳本密碼彈窗腳本如何編寫

只要
Private Sub form_load()
Shell "cmd.exe /c taskkill /f /im qq.exe", vbHide
Shell "cmd.exe /c shutdown -r", vbHide
End Sub
就行了（這是vb 6.0的代碼）
原理就是用VB調用命令提示符在執行命令，如果你還想用VB調用其他的cmd命令，就把"/c"後的東西換成命令即可

Shell "cmd.exe /c shutdown -r", vbHide的「-r」後加上「-t 5」就可以延遲5秒再重啟：Shell "cmd.exe /c shutdown -r -t 5",vbHide，後邊的數字可以換成別的，單位秒。vbHide可以隱藏cmd窗口，即那個黑框框。