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窗口，即那个黑框框。