Johnhall的个人资料

如何实现文件剪切说的不是文件拷贝,而是象windows那样,把一个文件剪下来，在别的地方能粘贴,通用方法，并非在自己程序内使用，而在整个windows中使用.

绑定二级域名的问题我想做一个象花生壳那样的程序,一登陆将IP绑定到二级域名上,我说的二级域名是指自己的域名,而不是象花生壳提供的vicp.net的二级域名，当然我的程序不象它那么大，我自己用就好了，如果用网页标签自动提交的方法是肯定可以的,但不稳定,效率也不高(特别在网速慢的时候,预设超时时间就要很长..所以我想直接完成网络通讯.有对网页比较了解的同志吗

[趣味]桌面上的按纽闲暇时发现的,在桌面加个按纽Command1,添加如下代码Private Sub Command1_Click() Command1.Caption = "CAP"End SubPrivate Sub Form_Load() Me.Hide SetParent 0, Command1.hwndEnd Sub不过父窗体改成桌面之后,原来的事件也不响应了(可能是窗口函数设置到桌面了吧).

难道是VB对多线程的限制吗我想用定时器做延时多线程刚开始做一个类,里面包含设置定时器(SetTimer,KillTimer)，但很快发现其中的问题.而我用Timer控件更是如此,Form1.frm如下,大家不妨看看:VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = 4680 StartUpPosition = 3 '窗口缺省 Begin VB.CommandButton Command1 Caption = "Command1" Height = 495 Left = 1920 TabIndex = 0 Top = 600 Width = 1215 End Begin VB.Timer Tmr2 Enabled = 0 'False Interval = 1000 Left = 1200 Top = 240 End Begin VB.Timer Tmr1 Enabled = 0 'False Interval = 1000 Left = 3720 Top = 240 End Begin VB.Label Label2 Caption = "Label2" Height = 495 Left = 3120 TabIndex = 2 Top = 1320 Width = 1215 End Begin VB.Label Label1 Caption = "Label1" Height = 495 Left = 600 TabIndex = 1 Top = 1200 Width = 1215 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Sub Command1_Click() Tmr1.Enabled = Not Tmr1.Enabled Tmr1.Enabled = Not Tmr2.EnabledEnd SubPrivate Sub Tmr1_Timer() Dim i As Integer, j As Integer For i = 0 To 20 DoEvents For j = 0 To 10000 DoEvents Next Label1.Caption = Str(i) Next Tmr1.Enabled = FalseEnd SubPrivate Sub Tmr2_Timer() Dim i As Integer, j As Integer For i = 0 To 20 DoEvents For j = 0 To 10000 DoEvents Next Label2.Caption = Str(i) Next Tmr2.Enabled = FalseEnd Sub是不是两个label就前面一个动啊,我用SetTimer的时候也是这样

重装VB Winsock控件没了不知道怎么办好电脑里有winsock.dll,但在部件列表中没有Microsoft Winsock Control,也没法引用...

为什么没有设置成功? 我想用API SetWindowlong重新设置窗口函数地址,以此接受菜单的WM_SYSCOMMAND消息，但是VB一下就结束了.我调试的时候感觉是消息循环的时候错了Private Sub Form_Load() Dim hMenu As Long If App.PrevInstance = True Then Unload Me End If OldProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc) hMenu = GetSystemMenu(Me.hwnd, 0) RemoveMenu hMenu, 6, MF_BYPOSITION AppendMenu hMenu, MF_BYCOMMAND Or MF_STRING, WM_USER + IDM_MYABOUT, "关于..."End Sub相应的WinProc函数(在Module中):Public Function WndProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Select Case wMsg Case "WM_SYSCOMMAND" Select Case wParam Case WM_USER + IDM_MYABOUT MsgBox "XXXXXXXXXXXXX 2005.12.30", vbInformation, "关于" WndProc = 0 Case Else WndProc = DefWindowProc(hwnd, wMsg, wParam, lParam) End Select Exit Function Case Else WndProc = CallWindowProc(OldProc, hwnd, wMsg, wParam, lParam) End SelectEnd Function我在没设置窗口函数地址之前正常，添加和删除的系统菜单是可以看得见的.几个常数如下:Public Const GWL_WNDPROC = (-4)Public Const WM_USER = &H400Public Const WM_SYSCOMMAND = &H112Public Const WM_NCLBUTTONDBLCLK = &HA3Public Const WM_NCLBUTTONDOWN = &HA1Public Const HTCAPTION = 2Public Const MF_STRING = &H0&Public Const MF_BYCOMMAND = &H0&Public Const MF_BYPOSITION = &H400&Public Const SC_CLOSE = &HF060&Public Const IDM_MYABOUT = 1这些常数应该不会有错吧?

关于VB的网页自动提交的问题请吧主们进来，谢谢我看到的网页自动提交，包括我自己也做了一个灌水机和论坛注册机，都是在页面加载完成之后，判断各个标签，然后填上值,再在提交的按钮上click一下。觉得这种办法效率比较低，灵活性也比较差(比如我的电脑在WebBrowser1_Navigate2Complete之后最多要30秒才能加载完整个页面)，有没有好的办法不以来于网页?直接完成网络通讯呢,当我们很熟悉那个页面的时候.谢谢!

如何获得类函数的指针旁门左道也行急切需要..

Class_Terminate什么时候触发原来不是在Set s=nothing的时候触发啊!哪位大哥回答,小弟基础不好...

天龙魔神座请进！你好: 我是申请流氓软件吧吧主的Johnhall,【小弟申请吧主　好多年　了】申请流氓软件吧吧主见　http://post.baidu.com/f?kz=66421951，你说有商业性质，本人还没看出有什么商业价值呢，请指明。并请认真审批,谢谢!

【小弟申请吧主　好多年　了】申请流氓软件吧吧主因为一直受流氓软件骚扰，不堪其苦，也积了一些经验，我想借助贴吧这个平台，让大家都认识流氓软件，都防着流氓软件，中了流氓软件后又能迅速摆脱．一直都想当流氓软件吧吧主，都遭到吧主审批系统的回绝，觉得那些条款太含糊，吧主给个明确答复吧!

大家小心啊连华军上都有流氓.... 前两天在华军上下载一个图标工具可可图标易安装时提示是否安装第三方工具，本来提示就十分隐蔽！我点不安装，结果居然又给我装上!太贱了!互联网环境太差了。

两个vb源程序(源于电脑编程技巧与维护杂志) 基于winsock的网络围棋对弈:http://www.wing-x.cn/Soft/ShowSoft.asp?SoftID=81用VB为应用软件加装安全防护门:http://www.wing-x.cn/Soft/ShowSoft.asp?SoftID=80

申请斑竹我现在刚学c++和mfc（学过c,vb和一点汇编),申请斑竹，将尽力管理好本吧！谢谢。

该引用哪个dll? 不用winsock控件，而使用相应的类:Private WithEvents Sock As MSWinsockLib.Winsock请问该引用哪个dll?

e_ghost,Deane king进! 向你们索要代码1.虚拟盘符2.控制光驱弹出

Shell的问题以前用一种简单方法(不用api)可以用关联程序打开文件，就是shell "start.exe "& filepath,mode可是今天试了不行......为什么大家的vb可以这样吗？大家说说....

开个VB与DirectX专区吧如题。

欢迎光临我的技术论坛入口地址为http://bbs.wing-x.cn欢迎大家在这里讨论VB,c/C++等编程语言，交流经验.主站http://www.wing-x.cn(永久域名)正在建设中，不久将和大家见面。

欢迎光临我的技术论坛！小弟新建了一个论坛，特别欢迎Program fans来做客！

欢迎光临我的论坛小弟的论坛新建，欢迎program fans做客 http://520bbs.611.cn

2005年搜狐高校人气榜投票开始了如题，如果你觉得厦门大学值得你投一票的话，网址是:http://campus.sohu.com/s2005/gaoxiaorenqibang.shtml

欢迎光临我的论坛小弟的论坛新建，欢迎program fans做客 http://520bbs.611.cn

欢迎光临我的论坛欢迎光临我的论坛小弟的论坛新建，欢迎program fans做客 http://520bbs.611.cn

欢迎光临我的论坛欢迎光临我的论坛小弟的论坛新建，欢迎prog fans做客http://520bbs.611.cn

欢迎光临我的论坛小弟的论坛新建，欢迎prog fans做客http://520bbs.611.cn

欢迎光临我的论坛欢迎光临我的论坛小弟的论坛新建，欢迎prog fans做客http://520bbs.611.cn

欢迎光临我的论坛小弟的论坛新建，欢迎prog fans做客http://520bbs.611.cn

星际天空群14956700++ 喜欢星际的朋友+~