2010年8月20日使用程序模拟键盘输入(VC/MFC)

在按钮的消息响应函数中,实现设置或取消定时器,并设置按钮标题。代码如下:

void CDlgmfcDlg::OnInput()
{
 // TODO: Add your control notification handler code here
 static BOOL bChangeFlag=TRUE;
 if (bChangeFlag)
 {
...

分类:程序设计  标签:程序  模拟  键盘输入  VC  MFC    网友评论1条  已浏览loading

2010年8月19日实现C++类的多重继承

类的多重继承演示


#include
using namespace std;

class CTimeType //时间类
{
int hour,minute,second;
...

分类:程序设计  标签:C    多重继承    网友评论0条  已浏览loading

2010年8月7日编程实现修改注册表后立即生效

用SendMessageTimeout这个API即可。

API声明:

Public Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long

...

分类:程序设计  标签:编程  修改注册表  立即生效    网友评论1条  已浏览loading

2010年8月6日VBScript数据类型转换函数

类型转换函数
Cbool(string) 转换为布尔值
Cbyte(string) 转换为字节类型的值
Ccur(string) 转换为货币类值
Cdate(string) 转换为日前类型的值
Cdbl(string) 转换为双精度值
Cint(string) 转换为整数值
Clng(string) 转换为长整型的值
Csng(string) 转换为单精度的值
...

分类:程序设计  标签:VBScript  数据类型转换  函数    网友评论0条  已浏览loading

2010年8月2日一段延时的代码

延时可以使用win32 API函数Sleep()来实现,不好的地方是延时的那段时间程序看上去会像卡死一样,当然时间断点那就无所谓了。

在CSDN上看到这么个延时代码:

Sub Delay(Seconds&)
  Dim t&
  t& = Timer
  Do While Timer < t + Seconds
  DoEvents
...

分类:程序设计  标签:程序  延时  VB    网友评论0条  已浏览loading

2010年8月2日DHTML对象中innerHTML,outerHTML,innerText,outerText属性

innerHTML,outerHTML

innerHTML检索或设置标签内的内容;

outerHTML检索或设置整个标签的内容(包含标签)。

<fieldset id="fieldset" style="width:600;height:40">
<SPAN ID="oSpan">Original Text</SPAN>

<input type="button" onclick="alert(document.all.fieldset.innerHTML);" value="innerHTML">
...

分类:程序设计  标签:DHTML对象  innerHTML  outerHTML  innerText  outerText  属性    网友评论0条  已浏览loading

2010年8月1日QQ批量自动申请源码

转自VBGood,By vbload。

QQ申请源码:

Private Sub Command1_Click()
    On Error GoTo Err
    Dim Province As String '省
    Dim City As String '市
    Dim strHead As String
    If VerifyCode.Text = "" Or Len(VerifyCode.Text) <> 4 Or NickName.Text = "" Or (UsrPsw.Text = "" Or Len(UsrPsw.Text) < 6) Then
        MsgBox "请检查注册信息是否正确输入!"
        Exit Sub
    End If
    NameRand = Array(6818, 8315, 5123, 2252)
    If Option1 Then Sex = "1" Else Sex = "2" '性别选择
    Province = Right(Combo5.Text, Len(Combo5.Text) - InStr(Combo5.Text, ":"))
    City = Right(Combo6.Item(Combo5.ListIndex), Len(Combo6.Item(Combo5.ListIndex)) - InStr(Combo6.Item(Combo5.ListIndex), ":"))
    ElementsArrName = Array("", "", NickName.Text, "0", Combo1.Text, CStr(Val(Combo2.Text)), CStr(Val(Combo3.Text)), Sex, "2", Trim(UsrPsw.Text), Trim(UsrPsw.Text), "1", Province, City, VerifyCode.Text)
    '----------------------"qq","email"'可以为空
    For i = 0 To 12
        a = Val(DataArrayShort(i)) Xor BaseNum
        b = 12 - i
        For j = 0 To 3
            a = a Xor NameRand(j)
        Next
        a = a Mod 15
       PostData = PostData + DataArrayLong(b) + "=" + ElementsArrName(a) + "&"
    Next
    strHead = "Content-Type: application/x-www-form-urlencoded"
    Label11.Caption = "开始申请……"
    ReturnCode = ""
    ReturnCode = GetInfoByInet("", "http://reg.qq.com/cgi-bin/getnum"[/color], [color=#808080]"POST", PostData, strHead, 2, ProxyIP) '代理IP--ProxyIP
    If InStr(ReturnCode, "xyz=") <> 0 Then
        NewQQNum = RemoveHeadTail(ReturnCode, "var xyz=""", """;")
        Label11.Caption = "恭喜你申请到一个QQ号:" + NewQQNum
        VerifyCode.Text = ""
        Open App.Path & "\qq.txt" For Append As #1
            Print #1, NewQQNum; "----"; Trim(UsrPsw.Text); "    申请日期:"; Format(Now, "yyyy年mm月dd日")
        Close #1
        Call RefreshVerifyCode
    ElseIf InStr(ReturnCode, "f_showInfoInLayer") <> 0 Then
        Label11.Caption = "验证码错误"
    ElseIf InStr(ReturnCode, "对不起,此IP申请的操作过于频繁") <> 0 Then
        Label11.Caption = "此IP已被限制,请更换IP,或使用邮箱QQ。"
    ElseIf InStr(ReturnCode, "现在申请的人过多") <> 0 Then
        Label11.Caption = "现在申请的人过多,系统无法响应您的请求。"
    End If
    Exit Sub
Err:
    Label11.Caption = "抱歉,申请过程中发生错误,未能成功!"
End Sub

分类:程序设计  标签:qq  批量  自动  申请  源码  VB    网友评论0条  已浏览loading

2010年7月31日VB实现自动登录论坛并回帖



试试xTiNt的代码着色效果。

xTiNtGlobal UserName As String '用户名
Global Password As String '登录密码
Global Login_Page_Start As String '登录页面
Global Login_Page_Complete As String '登录完成后服务器将自动跳转的页面

分类:程序设计  标签:VB  自动登录  论坛  回帖  源码    网友评论0条  已浏览loading

2010年7月28日VB中利用WshShell Object操作注册表

示例代码(写入操作):

Private Sub cmdReg_Click() '利用WshShell Object写入

Dim a
Set a = CreateObject("wscript.shell")
'The RegWrite method sets the registry key or value named by strName.
'Syntax
'WshShell.RegWrite strName, anyValue, [strType]
...

分类:程序设计  标签:VB  WshShell Objec  t操作  注册表    网友评论0条  已浏览loading

2010年7月25日C++中简单文件操作

很基础的一些东西,随便记一下……

代码:

#include <iostream>
#include <fstream>
#include <string>
using namespace std;

int main(int argc, char* argv[])
{
 if ( (argc != 3) && (argc != 4) )
...

分类:程序设计  标签:C  文件操作    网友评论0条  已浏览loading

2010年7月24日PropertyBag用法

为了将数据保存到PropertyBag对象,可以先建立一个对象新的实例。使用WriteProperty方法来保存数据,这一方法包含有三个参数:识别属性的字符串,属性的数值,一个缺省数值。如果属性的数值与缺省数值相同时,属性的数值将不会被保存。其范例如下:

Dim objPB As PropertyBag
Dim strValueToPersist As String

strValueToPersist = "TestingPersist"
...

分类:程序设计  标签:PropertyBag  VB  用法    网友评论0条  已浏览loading

2010年7月20日动态库和静态库编写基础

一、静态库
静态库是编译期间链接的,能与应用程序形成一个一体化的可执行文件。
交付时只需提供静态链接库文件mySll.lib和头文件mySll.h即可。
头文件代码:
#ifndef MYSLL_H
#define MYSLL_H
extern "C"//作用是可在C中调用
...

分类:程序设计  标签:动态库  静态库  dll  lib    网友评论0条  已浏览loading

2010年7月20日运行时对象类型识别(RTTI)

类信息表CRuntimeClass:

数据成员

m_lpszClassName    The name of the class.

m_nObjectSize    The size of the object in bytes.

m_pBaseClass    A pointer to the CRuntimeClass structure of the base class.
...

分类:程序设计  标签:RTTI  运行时  对象类型  识别    网友评论0条  已浏览loading

2010年7月17日C++中extern “C”含义深层探索

转自CSDN。

1.引言

  C++语言的创建初衷是“a better C”,但是这并不意味着C++中类似C语言的全局变量和函数所采用的编译和连接方式与C语言完全相同。作为一种欲与C兼容的语言,C++保留了一部分过程式语言的特点(被世人称为“不彻底地面向对象”),因而它可以定义不属于任何类的全局变量和函数。但是,C++毕竟是一种面向对象的程序设计语言,为了支持函数的重载,C++对全局函数的处理方式与C有明显的不同。
...

分类:程序设计  标签:extern  C    网友评论0条  已浏览loading

2010年7月13日模态对话框和非模态对话框的实现(MFC&API)

MFC定义了一个应用程序基类CWinApp,所有基于MFC的应用程序都会继承这个类。
class CmfctestApp : public CWinApp
{
public:
 CmfctestApp();

// 重写
public:
 virtual BOOL InitInstance();

// 实现

 DECLARE_MESSAGE_MAP()
...

分类:程序设计  标签:模态  非模态  对话框  MFC  API    网友评论0条  已浏览loading