易截截图软件、单文件、免安装、纯绿色、仅160KB

VB的put,get函数

 
Put 语句
将一个变量的数据写入磁盘文件中。
Put [#]filenumber, [recnumber], varname
Get 语句
将一个已打开的磁盘文件读入一个变量之中。
Get [#]filenumber, [recnumber], varname
例如:
dim B as byte
open "File1.txt" for binary as #1
get #1, 1, B
close #1
即可将File1.txt文件的第一个字节读入变量B
Dim S as string
S = "ABCDE"
open "File2.txt" for binary as #1
put #1, 1, S
close #1
即可将变量S的内容写入File2.txt中。


相关文档:

VB使用手形的图标

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......

VB用COM口发WAPPUSH,返回+CMS ERROR: 500

 给出代码如下:
Type WAPPushPDUStruct
    SMSCLen As String
    SMSCType As String
    SMSC As String
    PROTOCOL As String
    TPMRBase As String
    RePhoneNumLen As String
    ReP ......

[转载]: 教你如何用VB做控件*.ocx

教你如何用VB做控件*.ocx
一个控件有很多事件如:Click、MouseDown、MouseUp、MouseMove等。要触发这些事件都需要你加入代码。在控件的声明处加入Public Event Click()就表明该控件有一“Click”事件。自己编写的控件有什么事件就在声明处加几条事件
如今OCX控件在编程中已占领了很重要的地位,我们可以利用OC ......

vb 模拟鼠标按键

 把鼠标移到屏幕指定位置 如(111.111) 单击一下
再移到屏幕另一指定位置指定位置 如(222.222)单击一下
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPo ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号