blubber的个人资料

举报VB吧 http://post.baidu.com/f?kz=166188989

星际争霸版本转换器支持1.14 请加精 http://www.sad-angel.net/d/%D0%C7%BC%CA%D5%F9%B0%D4%B0%E6%B1%BE%D7%AA%BB%BB%C6%F7.exe

求皮肤代码 manifest 不说了。控件也不说了 ,做不了绿色程序。求代码皮肤实现方式

自杀程序呵呵！总是看见有朋友问自杀程序怎么写呵呵其实不借助“外力” 是没办法实现自杀的。Private Sub Form_Load()If VBA.Command = "" ThenDim myName As StringmyName = """" & IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & App.EXEName & ".exe" & """"cmd = "cmd /c E:&" & myName & " ""login""&del " & myNameShell cmd, 0EndEnd IfEnd Sub

一个令日本女人发疯的笑话前几年，日本曾组织了一个经贸考察团去欧洲访问。在英国，受到了女王等达官贵人的高规格接待，其中还有英国的大牧场主和商业界的巨子等。此次活动受到了世界各大媒体的高度关注！在英国举行的第一次招待会上，随日本考察团去的一名年轻漂亮的女记者，想制造一个*性的新闻，突然对一大牧场主提出了这样一个尖刻的问题：“请问董事长先生，你们英国的牛为什么容易疯？” 这个问题在当时是非常非常敏感的，因为当时英国*还未向全世界正式公布英国本土疯牛病的问题。只见各大媒体的记者忽啦一下围了上来，都想把被问的那位的图像和声音录下。只见这位董事长不慌不忙的回答道：“小姐你好！这个问题嘛，是因为我们英国的牛，一天要挤四次奶，而一年只交配一次。”“那也不能成为了牛疯的条件呀？”日本记者小姐反问。这时，这位董事长提高了嗓门回答：“小姐，这么说吧，如果你一天被摸四次奶子，而一年只挨一次cao，你难道不疯？！”

VBdata 呵呵

求Winsock广播的发送与接受代码如题[email protected]谢谢

上次谁说做了个局域网聊天程序的朋友能给点源码看看么我对怎么获得在线人数这个问题不太爽毕竟没有自己的服务器

求socket32.dll 聊天室代码如题如果能加传二进制文件流的代码更好先谢谢

哇点所有帖子都是帖子不存在啊如题

关于AMP 请高手指点下 T 我的AMP一般在200左右可惜对方再菜都能把我打郁闷。Z 我的AMP一般在150 赢率比较大。P 我的AMP一般在120 基本没赢过。这些都是跟我朋友打的对方技术比我好点我就不明白了 T我都是按步发展的意识上基本也是压制为主但是总是输后期不知道怎么做了。。。我应该注意哪些问题是不是只有被高手揉虐下才能有进步？

CBM666老师有问题请教需求：根据数组生成曲线并能对曲线进行拖拽修改！~有相关的组件请老师给我推荐个。或者别的解决方案也行

请大家帮忙！cbm666老师 LoveVB 后代还有吧里各鸟 Help Me！！！！需求说明sql-server：有一远程大型数据库。要求我在本地客户端请求数据时，把一个结果集缓存到本地。任何操作都是在本地的结果集上进行。最后把所做的修改删除等操作提交给远程进行修改。我的初期思路是：ADODB.Recordset对象把结果结合存成本地xml→本地access库→操作本地access库→生成事务列表→提交事务。感觉不太好整请大家指点！

(灌水)枚举一个窗体上的所有控件句柄,类名,ID QQ举例模块----------------------------------------------------------------Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As LongDeclare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As LongDeclare Function GetDesktopWindow Lib "user32" () As LongDeclare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As LongDeclare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As LongDeclare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As LongDeclare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function GetDlgCtrlID Lib "user32" (ByVal hwnd As Long) As LongPublic Declare Function SetFocus1 Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As LongPublic Const WM_GETTEXT = &HDPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long Form1.Text1 = Form1.Text1 & vbCrLf & "---------" Dim Cn As String * 256 Dim Tx As String * 256 Dim sSave As String GetClassName hwnd, Cn, 255 Form1.Text1 = Form1.Text1 & vbCrLf & "hwnd=" & hwnd Form1.Text1 = Form1.Text1 & vbCrLf & "GetClassName=" & Cn Form1.Text1 = Form1.Text1 & vbCrLf & "id=" & Cn 'Get the windowtext length sSave = Space$(GetWindowTextLength(hwnd) + 1) 'get the window text GetWindowText hwnd, sSave, Len(sSave) 'remove the last Chr$(0) sSave = Left$(sSave, Len(sSave) - 1) If sSave <> "" Then Form1.Text1 = Form1.Text1 & vbCrLf & "GetWindowText=" & sSave End If 'continue enumeration EnumChildProc = 1 End Function-------------------------------------------------窗体 Dim QQhwnd As LongPrivate Sub Command1_Click() Text = "" QQhwnd = FindWindow(vbNullString, "QQ用户登录") If QQhwnd = 0 Then MsgBox "未启动" Exit Sub End If EnumChildWindows QQhwnd, AddressOf EnumChildProc, ByVal 0&End Sub---------------------------------------------------QQ群 8169422 请朋友们一起来交流学习进步。

我申请[蓝色幻想]吧主吧 http://post.baidu.com/f?kw=%C0%B6%C9%AB%BB%C3%CF%EB蓝色吧被人清吧了。很生气。我想重建蓝色吧。谢谢