如何把vbs的代码弄到vb程序中的的一个按钮里面去??
发布网友
发布时间:2024-08-20 13:57
我来回答
共2个回答
热心网友
时间:2024-08-24 04:17
在VB 窗体中放置一个按扭 Command1,双击按扭,在其 Click() 事件中添加你的程序就可以了
如:
Private Sub Command1_Click()
On Error Resume Next
Dim WSHshellAset
WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.Run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a = InputBox("说我是猪,就不关机,快撒,说 ""我是猪"" ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛"
Dim WSHshellset
WSHshell = wscript.CreateObject("wscript.shell")
WSHshell.Run "cmd.exe /c shutdown -a", 0, True
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈,一切皆有可能~"
End Sub
热心网友
时间:2024-08-24 04:21
private sub command1_click()on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"
end sub
热心网友
时间:2024-08-24 07:39
在VB 窗体中放置一个按扭 Command1,双击按扭,在其 Click() 事件中添加你的程序就可以了
如:
Private Sub Command1_Click()
On Error Resume Next
Dim WSHshellAset
WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.Run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ", 0, True
Dim a
Do While (a <> "我是猪")
a = InputBox("说我是猪,就不关机,快撒,说 ""我是猪"" ", "说不说", "不说", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "早说就行了嘛"
Dim WSHshellset
WSHshell = wscript.CreateObject("wscript.shell")
WSHshell.Run "cmd.exe /c shutdown -a", 0, True
MsgBox Chr(13) + Chr(13) + Chr(13) + "哈哈哈哈,一切皆有可能~"
End Sub
热心网友
时间:2024-08-24 07:37
private sub command1_click()on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
dim a
do while(a <> "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"
end sub
如何把vbs的代码弄到vb程序中的的一个按钮里面去??
在VB 窗体中放置一个按扭 Command1,双击按扭,在其 Click() 事件中添加你的程序就可以了 如:Private Sub Command1_Click()On Error Resume Next Dim WSHshellAset WSHshellA = wscript.CreateObject("wscript.shell")WSHshellA.Run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪...
如何将VBS代码写到VB里???
把下面这段代码放到空白的地方:sub Close_Process(ProcessName)On Error Resume Next for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程 if Ucase(ps.name)=Ucase(ProcessName) then ps.terminate end if next end sub 在命令按钮的事件里,只要以...
从网上复制来的VB代码要怎么用啊
如果是VBS脚本代码,直接复制到文本文件中,然后另存为后缀名为 .vbs的文件就可以了。如果是VB的程序源代码,那就要有一定的知识,先对界面进行设计,然后根据自己的情况删改代码。
VBE,VBS如何运行某个程序?
回答:1. set obj=createobject("wscript.shell") obj.run"notepad",1'打开notepad.exe--记事本程序2.>msgbox "内容",vbokcancel,"标题" '显示确定、取消按钮 >msgbox "内容",vbyesno,"标题" '显示是、否按钮3.shell("taskkill /f /im qq.exe",vbhide) '关闭qq
怎么在vb里运行vbs代码
将代码保存为脚本文件,如保存到C\1.vbs 然后在vb中引用api函数:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal...
如何给VBS命令加上密码,就是让别人看不到我的原码也不能编辑,只能运行...
第一种方法:会用VB吧?把它在VB中编译。先打开“工程”-“引用”窗口,在其中将“Microsoft Script Control 1.0”选中,然后把你的VBS代码加到CODE=后面。如以下例子:Private Sub Command1_Click()Dim VBS As New MSScriptControl.ScriptControl Dim Code As String Code = "Sub Test() " & ...
VB程序如何执行VBS文件?【答对+40分】
①vbs代码vb可以直接拿来用。所以,把代码打进去就可以了。②或者当作外部文件执行一样可以shell "程序"
vb6怎么在代码中执行编译命令
VB语言可以实现这一功能,VB利用Microsoft Script Control对象可以动态执行(即无需事先编译成EXE)VBS指令,代码如下:窗体放一个多行文本框和一个按钮。Private Sub Command1_Click()Dim ScriptControl As Object, Psw$Set ScriptControl = CreateObject("MSScriptControl.ScriptControl")ScriptControl.Language ...
如何用vb.net 调用VBS文件?
一般的VBS程序都是可以写在VB程序里面的 只需要稍加变化 加上些关键字 或者数据类型 如果 你想调用一个VBS程序 也可以使用Shell的方法
求:VB按钮问题! 按钮控制VBS脚本运行和关闭
Private Sub Command1_Click()f = "d:\a.vbs"If Command1.Caption = "点击运行" Then GetObject("", "WScript.Shell").Run """ & f & """Command1.Caption = "点击关闭"Else f = LCase(f)For Each p In GetObject("winmgmts:").InstancesOf("win32_process")If (LCase(p.Name) ...