接收pop3 Public Function Retrieve(ByVal rhs As Pop3Message) As Pop3Message Dim message, response As String Dim msg As New Pop3Message msg.bytes = rhs.bytes msg.number = rhs.number message = "RETR " + rhs.number.ToString + vbCrLf write(message) response = Respond() If response.Substring(0, 3) <> "+OK" Then Throw New Pop3Exception(response) End If MsgBox(msg) msg.retrieved = True While (1 = 1) response = Respond() If response = "." + vbCrLf Then Exit While Else msg.message += response End If End While Return msg End Function
标签： Pop3Message Function Retrieve response
上传时间： 2013-12-28
上传用户：fnhhs
武林DLL注入源码 VB调用 Private Declare Function CallHotKey Lib "wulin.dll" (ByVal hWnd As Long, ByVal hotkey As Long) As Boolean Private Declare Function CallBase Lib "wulin.dll" (ByVal hWnd As Long, ByVal action As Long) As Boolean CallHotKey(窗体句柄,HotKey) HotKey ====0---------17 分别是0-----9 F1-----F8 CallBase(窗体句柄,Action) Action==0-------N 分别实现不同的功能 Action=0 选怪 函数反回值是 布尔值 ( 窗体句柄,Action 窗体句柄,HotKey 都为DWORD值)
标签： ByVal CallHotKey Function Private
上传时间： 2013-11-25
上传用户：maizezhen
//按柱面和磁道来读取磁盘数据,要求 Public Function ReadDisk(ByVal Cylinders As Long, ByVal Tracks As Long, db() As Byte) As Boolean
标签： ByVal Long Cylinders Function
上传时间： 2014-01-13
上传用户：zxc23456789
Visual Basic 6.0可以通过调用API函数格式化一个磁盘，无论是软盘还是硬盘。 打开一个新的项目(工程1) ，如果你没有更改过缺省模式，那么Visual Basic 6.0会自动添加一个form1文件，在form1上添加一个命令控件，将下面的代码拷入。 Option Explicit Private Declare Function SHFormatDrive Lib"shell32"( ByVal Hend AS Long,ByVal Drive AS Long,ByVal FormatID AS Long,ByVal Options AS Long) as Long Private Sub FormatDisk(intDrive as integer,blnQuickFormat as Boolean) dim lngReturn As Long if (blnQuickFormat) then lngReturn= SHFormatDrive(0,intDrive,0&,1&) else lngReturn= SHFormatDrive(0,intDrive,0&,0&) end if end Sub Private Sub Command1_Click() call FormatDisk(0,True) End Sub 运行此程序。 注意FormatDisk函数的第一个变量很重要，他的值是0,1,2时代表格式化的分别是：A、B、C盘。
上传时间： 2015-10-05
上传用户：kytqcool
利用WM5 实现电话功能 在程序中进行电话拨号 “项目”—“添加引用”—“Microsoft.WindowsMobile.Telephony”—“确定” Imports Microsoft.WindowsMobile.Telephony Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim TestPhone As New Phone TestPhone.Talk("1001") End Sub
标签： Microsoft WindowsMobile Telephony Imports
上传时间： 2013-12-20
上传用户：hasan2015
用VB做QQ强制聊天器 用VB做QQ强制聊天器 大家好..我是愚罪..QQ：303931726 今天教大家来用VB做QQ强制聊天器..... 废话不多说了``` 直接打开VB 新建一个EXE文件..新建一个Text和一个Command按纽 最后直接把代码写上去就可以了... Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Private Sub Command1_Click() ShellExecute 0, "open", "tencent://message/?uin=" + Text1.Text, "", "", 1 End Sub 可以了...生成试验下..我就不美化了..你们可以去美化下``` 看。。成功了
上传时间： 2014-01-19
上传用户：日光微澜
