❶ 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>