Top丿Kernel的个人资料 - RAT

Top丿Kernel Top丿Kernel

认识网络的(优.差)性!

关注数: 3 粉丝数: 12 发帖数: 356 关注贴吧数: 16

王者来，青铜不要来给王者的，青铜就算了

VB 判断问题有10个 TEXT，分别是 TEXT1-TEXT10 有10个按钮，分别是 1-10 点击生成，会给10个TEXT随机生成1-10位数点击判断：从TEXT1开始，判断内容1-10，如图，显示的是1 ，那么就点击按钮1控件。。再次点判断按钮。判断TEXT2内容。然后根据数字，点击按钮依次把10个 TEXT内容都判断玩结束。代码怎么写啊

VB随机生成10个数字赋值到TEXT 一个Command1按钮 10个Text框，分别是 Text1 - Text11 点击一下按钮，随机生成1-10的数字，然后每个数字分别赋值到 TEXT框里。每个数字都不重复。。忘记代码了，，球帮助

VB模拟键盘输出文字我想做个模拟输入文字的小软件比如：TEXT1.TEXT 内容是：马上要过五一劳动节啦我电脑打开了记事本，然后启动软件后，模拟键盘打字把TEXT内容，一个个字输出到记事本。目前我只会用剪切板代码。文字一个个输出还不会，求代码

有啥烧脑的电影推荐吗喜欢有逻辑有推理好看的电影推荐下

VB 控制其他软件窗口按钮我想做一个控制其他软件的按钮，可以自动点启动，或者，关闭。代码试了不管用大家帮我看看怎么修改句柄：7604334 窗口：逍遥多开器类名：Qt5QWindowIcon 我写的代码是： Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long '鼠标按下 Const WM_LBUTTONDOWN = &H201 '鼠标弹出 Const WM_LBUTTONUP = &H202 '鼠标双击 Const WM_COMMAND = &H203 Private Sub Command1_Click() Dim tWnd1 As Long, tWnd2 As Long tWnd1 = FindWindow(vbNullString, "逍遥多开器") If tWnd1 <> 0 Then tWnd2 = FindWindowEx(tWnd1, 0, vbNullString, "启动") If tWnd2 <> 0 Then SendMessage tWnd2, WM_LBUTTONDOWN, 0&, 0& SendMessage tWnd2, WM_LBUTTONUP, 0&, 0& End If Else tWnd2 = 0 End If End Sub 大家看看那里要改改或者替换掉。

一起养猫组队，PK的来

白云寝室那点事儿，之，开箱制作开启白嫖的人生，美滋滋

大家手里的闲置物品都不少吧？建了个千人的跳蚤市场群，大家有需要的来

VB 判断问题，需要帮助一个个窗口有10个 TEXT控件 , 10 个Command控件分别是： text1, text2, text3, text4, text5, text6, text7, text8, text9, text10 分别是：Command1- Command10 一个主控件：Command11 给TEXT控件赋值分别是: text1= "4" text2= "6" text3= "5" text4= "0" text5= "1" text6= "7" text7= "2" text8= "3 text9= "9" text10= "8" 点击 Command11，先判断，TEXT1内容数字是多少，如果是4，那么就点击 Command4 这个控件。再点击一次 Command11，开始判断 TEXT2内容数字是多少，如果是9.那么就点击 Command9这个控件。按照顺序，我每点击一次 Command11控件，就做判断，直到 TEXT10 结束

VB 随机排序时间控件我想做个程序，里面有3个TIME时间控件分别是Timer1，Timer2，Timer3 我点击按钮后，先给3个时间控件布置一个“随机排序顺序” 然后依次执行控件内容。比如：我点击了下按钮。随机获取的顺序是先执行：Timer2，再执行Timer1，最后执行Timer3. 因为是随机的，所以上面是个例子。。每次点击按钮顺序都不一样。代码不会写求高人

vb List1删除多项求大师 Private Sub Command1_Click() Text1.Text = List1.List(0) Text2.Text = List1.List(1) Text3.Text = List1.List(2) Text4.Text = List1.List(3) Text5.Text = List1.List(4) Text6.Text = List1.List(5) End Sub Private Sub Command2_Click() For i = 1 To 5 List1.RemoveItem i Next End Sub Private Sub Form_Load() List1.AddItem "China" List1.AddItem "America" List1.AddItem "Japan" List1.AddItem "Soccer" List1.AddItem "Tennis" List1.AddItem "Basketball" End Sub 我把list的前6项赋值到6个text框里。然后我想把刚才赋值出去的前6项删除。就报错了。高人求代码

遇到一个问题获取网页的一段文字。大师请进 For i = 0 To WebBrowser1.Document.getElementsByTagName("A").length - 1 If WebBrowser1.Document.getElementsByTagName("A")(i).className = "加入推广" Then MsgBox "存在" End Else MsgBox "不存在" End End If Next 这个代码是有问题的。。。下面是网页的代码 <span class="add-tui J_add_tui"><i></i>加入推广</span> 弄了一晚上都测试不成功求高人代码

免费的主机屋主机屋免费的稳定

主机屋免费空间速度很稳定免费的很好

关于10月29生意通可以打开，弹窗那个我看过了。。是网站域名出售了、。、这里我简单说，，，之前是服务器出现问题，所以大家一直打不开。。现在能打开了。。就是生意通网站现在是出售了。。。所以，以后再也没有生意通了，大家也不要等了。网站域名现在是处于销售期

生意通无法连接，大家有没好的推荐我找了千人斩，还有天狗流量。都发现很垃圾，千人斩赚分慢还用 CC清理天狗流量太慢了。很不稳定，你发点任务很难完成。。生意通 26号就出问题了。。。因为打开文件是自动连接网站查询是否有新文件。。一直无法正常进入是因为他们的网站出问题了。。要么服务器问题，要么就是网站问题。。。反正2天了。。好不习惯了。。没有生意通的日子淘宝不好做咯

主机屋免费稳定至上免费可靠无需备案简单的几句话透露出的本质

主机屋真好用主机屋可以说是全网络最好的服务商。很多免费空间最多坚持1-2个月就牺牲了，而且动不动就账户给你注销了。主机屋不仅解决了稳定的问题，还完美的解决了备案问题。好啊实在是好，哪敢哪家还和主机无比呢

HTML5 的MP4视频，在火狐无法播放。高人进代码如下： <source src="Kraftex\1.mp4" type='video/mp4' /> <source src="oceans-clip.webm" type='video/webm' /> <source src="oceans-clip.ogv" type='video/ogg' /> 虚拟主机MIME添加的信息如下：文件类型应用程序操作 .mp4 video/mp4 .webm video/webm .ogv video/ogg ------------------- 再 IE，谷歌浏览器，都能正常播放。到了火狐就不行。请问有没高人能解决的。用的是虚拟服务器。

VB获取网页源代码中的指定数据！求助 <div id=................&item_type=b&ends=1426925168000&starts=1426320368000&item_id=43292423867&user................</div> 例如以上是网页源代码的一部分。我想做个软件，TEXT1框输入网址，然后获取这个网页源代码中指定ends=后面的10个数字。 aa= Inet1.OpenURL("你的网址") text1.text=mid(aa,instr（aa,"ends="）+3,10）这个代码不行输入的内容居然是 <!doctype

VB 读取TXT文本内容，并且实现换行输出 C盘电脑下 1.txt 文本内容有： abc abo abt sss ddd VB里设置一个按钮，点击这个按钮后，讲TXT的第一行 ABC 输出到 TEXT1.TEXT里我再次“点击按钮”时，将 ABO 输出到 TEXT1.TEXT里我再次“点击按钮”时，将 ABT 输出到 TEXT1.TEXT里就是，每次点击按钮，将TXT文本里，换行好的每一串数字，逐步输出到TEXT1里。

1 下一页