那位高人指教指教，小弟感激不尽。 Private Sub Form_Load() txtLocalIP.Text = udpsock1.LocalIP txtLocalPort.Text = udpsock1.LocalPort End Sub Private Sub txtSend_Change() udpsock1.SendData txtSend.Text 运行时出错提示：10047 地址族不支持 End Sub Private Sub udpsock1_DataArrival(ByVal bytesTotal As Long) udpPeerA.GetData strData txtoutput.Text = strD...

360老杀我的VBS脚本，连hello world也杀，添加信任后，每改动一点再执行还要继续杀 搞什么飞飞机啊 求推荐全套替换360的解决方案，谢谢！

有个网站他几分钟不动就会自动登出了,请问怎么样可以模拟一下鼠标点击或者 按一下键盘啊. 有可能有几个窗口,几个窗口都要分别按一下

(无需积分下载)以下是工程下载地址:http://download.csdn.net/source/3343133 不喜欢下载的，我可以贴出全部代码。谢谢先了。

用法 Private declare Function enablewater Lib "waterctrl.dll" (Handle As Integer ,left As Integer ,top As Integer ,bitmapHandle As Integer ,WaterRadius as integer, WaterHeight as integer) As Boolean 窗体的句柄 'handle 放置特效窗口的父窗口句柄。 'Left 左位置 'Top 上位置 'Bmp 位图句柄。 'WaterRadius 水纹半径，会令到水纹看起来范围更广。 'WaterHeigh...

Option Explicit Private Sub Command1_Click() Dim strNews, i% strNews = Array("考勤月份", "姓名", "编号", "缺勤次数") For i = 0 To 3 '验证设定的工资标准 If Text1(i) = "" Then MsgBox strNews(i) & "级工资标准不能为空，且必须为数字", _ vbCritical, "职务工资标准设定" Text1(i).SetFocus Text1(i).SelStart = 0 Text1(i).SelLength = Len(Text1(i)) Exit Sub ...

自己写的一个程序，总是在执行到“特别标注”那一行的时候正确的记录可以查出，但是却提示 实时错误'9'下标越界，请问如何解决，谢谢！！ Dim cn As ADODB.Connection Dim sql As String Dim rs As ADODB.Recordset Dim rs1 As ADODB.Recordset Dim cmd As ADODB.Command Dim c Dim i As Integer Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入单据编...

<td><button class="submit" type="submit" name="regsubmit" value="true" tabindex="100">提交</button></td>

VB 中的直线和形状控件总是被其它的控件遮住，对它右键－--置前也不起作用，有没有办法让它在其它控件的最前边显示？ 多谢!!

替换字符串中的点号(如：“Mike John.”后面的点号可以去除), 但是不能替换一个单词的缩写中的点号（如：“Mike J.”后面的点号不能去除）