-
-
3
-
0'---------------------------下载页面--------------------------------- Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDown
-
10一幼儿园的小破孩躲在厕所里吸烟，被老师抓到，老师问他为什么吸烟，他低下头，深沉的回答：祖国未统一，心情很郁闷！ ------来自iPhone5S土豪
-
5怎么解
-
3。。。。
-
51有种蛋疼的感觉 ------男：疼吗 女：疼 男：疼就算了 女：别！ -------------[本消息由夜幕兔贴吧小尾巴发送]
-
13视角传媒
2014-01
测试 -
0生成随机数 Private Sub Command2_Click() Randomize Timer '~~~~此处为以系统时间的总秒数为随机种子初始化 a = Int(Rnd * 10 + 1) Print a End Sub
-
1么么哒
-
8的所发生的 ------来自iPhone5S土豪金镶钻版，你值得拥有！
-
1哎。今日归来。，。。物是人非
-
5
-
1
-
10行不行啊
-
24测试2222！~
-
0不行啊
-
17帖子发了，，，，，， 测试夜幕兔发帖顶帖器！！！
-
8
-
17唐小龙总是以屌丝自居，其实他自己也明白：他也许连屌丝都算不上。因为屌丝气质中有一股放荡不羁的力量，这股力量往往会诱使屌丝做出常人不可做之事，
-
158以下内容来自糗事百科，Leowalk吧转发
-
4==========本帖禁水，违者小黑屋========= 欢迎大家来到糗事百科贴吧！~╮(╯3╰)╭
-
13删除文件夹：RmDir (path as String) 删除文件：kill(path as string) 绝对值的意思~~~val（） '----------------------此VB源码由Leoawlk编辑整理---大吉大利
5-30
-
2Private Sub Form_Load() WebBrowser1.Navigate "http://www.baidu.com" End Sub Private Sub WebBrowser1_DownloadComplete() Text1.Text = WebBrows
-
1保存text 为UTF-8 工程-------引用--------- MicroSoft ActiveX Data Objects 2.5 Library： '--------------------------保存为UTF--8--------------
-
2-------------------------------糗吧公告栏---------------------------------- 糗事百科吧事务QQ群：206971570，欢迎广大糗吧吧友加入 本QQ群主要受
-
3图片来自: 颓废的翔龙哥的百度相册
-
0一次军事演戏中，一颗炮弹偏离很远。派去查看的士兵发现，炮弹落在农田里，田中站着一农民，衣衫破碎满面漆黑，双眼含泪地说：偷棵白菜，犯得着用
-
11mid(字符串，从第几个开始，长度)?? ByRef?? 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("坦然面对",1,3) 则返回 "坦然面" mid(字符串，
-
0Dim SelectNum As Byte Dim vDoc, vTag Dim i As Integer Dim Num As Integer Set vDoc = WebBrowser1.Document SelectNum = 1 For i = 0 To vDoc.All
-
17top 50 你被变态抓住，现在要求必须吃一样东西才放过你，一个是大便味的巧克力，一个是巧克力味的大便
-
52222
-
0Private Sub Form_Resize() If Me.WindowState = 1 Then '这里写最小化时的代码 End If End Sub 点关闭是出现确认对话框 Private Sub Form_Unload(Can
-
0统计日期间隔 Private Sub Command1_Click() Dim Date1 As Date Dim Date2 As Date Date1 = 2010-08-17 Date2 = 2010-09-27 MsgBox DateDiff(d, Date1
-
0关键有2个，一个你要找到对应的字体，第二你要找到这些字体的代码。例如，英文空格的代码32，那么你可以用chr(32)表示英文空格。同样，你要找到这些特
-
0'开始菜单中的运行中输入“Regedit”就可以打开了 Text1.Text = CreateObject("Wscript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\QQ20
-
0在text1中第n行为0或空行时删除， 同时删除text2和text3中的第n行. 例：在text1中第5行为0时， 删除text1、text2和text3中的第5行 在text1中第10行为
-
0'--------------打字效果mid函数 Option Explicit Dim i As Long Dim str As String Private Sub Timer1_Timer() str = "这里输入你要慢慢的现实的话
-
0模块 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, By
-
0Dim vDoc, vTag Dim i As Integer Private Sub Command1_Click() Set ObjDoc = WebBrowser1.Document ObjDoc.getElementById("username").Value = Tex
-
0Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal
-
0'声明API函数 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String,
-
0'API声明 Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long'label 变手型 Private Sub Label8_Click() Shell "expl
-
0'-------------------list中载入ini Dim str(1000) As String'重要！！！！！！！！ Dim a As String Dim i As Integer Private Sub Form_Load() a =
-
0用Msgbox询问用户是否确认退出程序，并接收用户返回的Msgbox函数的值 两种方式1.单击Command1按钮退出。2.单击右上角的关闭按钮 代码简单但是很实用
