cike_1111的专栏

原创 QQ强聊器原理和代码

QQ强聊器原理和代码可以做下面一个试验:在 IE 地址栏内输入如下字符:http://wpa.qq.com/msgrd?V=1&Uin=123456&Site=ioshenmue&Menu=yes 看会出现什么情况!QQ强聊器其实就是调用IE来打开上面这个代码;Q号部分可以用变量代替只要知道这个地址 任何人都可以作一个QQ强聊器下面是一个例题:*********

原创 [原创]数字转换中文大写金额

[原创]数字转换中文大写金额 程序需要：2控件：text1command1command1下代码：On Error Resume NextIf InStr(Text1, ".") > 1 Then Exit SubIf Right(Text1, 1) = "." Then Text1.Text = Left(Text1, Len(Text1) - 1  b = "亿万仟

原创 关于shell 在VB中的使用技巧

关于shell 在VB中的使用技巧先看我总结的shell 函数的作用：【作用】执行一个可执行文件              返回一个 Variant (Double)，成功返回这个程序的任务ID，不成功会返回 0。 【语法】Shell(路径[,可选参数]) 【说明】路径：要执行的程序名，或程序路径[执行的程序可跟相关命令参数] 可选参数：有下列可选的参数值 常量            

原创 让控件随窗体大小改变而改变

模块作用:让控件随窗体大小改变而改变 模块代码: ====请看下面===== Option Explicit Private FormOldWidth As Long 保存窗体的原始宽度 Private FormOldHeight As Long 保存窗体的原始高度 Public Sub ResizeForm(FormName As Form)       Dim Pos(4) As Do

原创 VB绘制曲线

 form = 1个 command1 一个shape1  一个list 步骤 : 放入以上3个控件 复制下列代码到代码窗口 启动即可看到效果==============================================================================Private Sub Command1_Click()    Min = List1.L

原创 [例题]一个圆在窗体内规则运动[类似浮动广告条]

 =========cike例题===========name = 弹动的小圆窗体=1个圆  1个时间设置：把Shape设置成圆 时间间隔=20代码：================================== Dim 下右 As BooleanDim 下左 As BooleanDim 上右 As BooleanDim 上左 As Boolean 定义方向

原创 运行时移动窗体内的控件

 原问题: 怎样在程序运行的状态下   用鼠标移动窗体上的控件??可以随意放在哪里....~!! 我的解决方案:====cike例题==== name   =   移动框架控件 form   =   Frame1 效果     =   可以随意拖动   框架的位置   ================ VBScript code <!--Code highlightin

原创 [例题] 电动扑克比大小问题

 原题目：我想仿制一个像游戏机室里的扑克牌机一样游戏 游戏时每次发5张牌,(共有54张牌)有两张王,大王和小王可以当作52张牌中任意的一张牌,这五张牌的中奖方式和大小顺序如下: 五个相同的(比如:五个A) 同花顺(比如:A.K.Q.J.10,五张牌的花色是一样的) 四个相同的,带一张其他的牌(比如:四个A带一个2) 三个相同的,带一对其他的牌(比如:三个A带一对2) 同花(比如:五张牌的花

原创 [例题]VB操作Excel (1)[用VB创建一个xls文件][并向里面写入一个数据]

原创 让程序 只能运行一次

 原题目:怎么才能让程序只运行一次？也就是在第二次运行时能检测到已经运行了大概意思应该是程序运行过一次以后就不能再次运行了我的解决方案:让程序只运行一次: 思路:   启动程序的时候   随便向注册表里写入一些信息!   同时提取该项目的信息   若该项目已有信息,那么表示程序已经运行过一次了   .   通过这样的方法判断   .. VBScript code <!--

原创 十进制转换为二进制

 原问题：如果转换的十进制数大于长整型该如何转换？比如4294967295我的解决方案：我让程序自己解决，就是说让它自动识别类型   若类型识别不好   益出的话   加一句错误处理语句就把它给解决了 这里是我的代码   楼主参考下！ <!--Code highlighting produced by Actipro CodeHighlighter (freeware)

原创 VB打开帮助文件的2个方法

好象正规的软件都自带帮助文件...帮助文件倒是容易制作..如何让它能在程序中打开呢? 下面介绍种方法: 1。APP.HelpFile ： 该属性记录程序的帮助文件路径  设置了该属性后你的程序按下F1就能自动打开你设定的帮助文件了 使用： form_load() 事件内代码： APP.HelpFile="帮助文件路径" 就一句代码 若需要其他地方打开帮助文件 可以让你的程序模拟按下 F1 

原创 读取计算机名

VB技巧

原创 给你的list控件添加横向的滚动条

给你的list控件添加横向的滚动条有时因为你的list里的内容过长 可以使用到这个小技巧:请看代码:API 部分:Const LB_SETHORIZONTALEXTENT = &H194 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wM

原创 获得text内的行数

获得text内的行数方法1 [这个是我自己的方法]======以vbcrlf为界线分割text的内容获取最大下标+1就能得到总行数=====代码:Dim a As VariantDim b As Integera = Split(Text1, vbCrLf)b = UBound(a) + 1MsgBox "一共" & b & "行"注意: 实验的时候记得把text1设置成多行方

原创 改变list列表的间距

 有没有觉得 列表框的各项目之间的距离有点紧凑呢？  用这个方法把其距离拉远点吧！API 部分：Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lPar

原创 关于动态创建控件组

关于动态创建控件组先设置要创建控件的 Index 属性为 0代码区:for i = 0 to 创建数量-1load 控件名称(i)控件名称(i).Visible = True这里设置控件与控件的位置  Next i 

原创 【分享】+【讨论】动态添加控件(不是控件组)

请在一个空的窗体内放入 如下代码 看看效果如何!Private Sub Form_Load()Form1.Controls.Add "vb.textbox", "text", Form1With Form1!Text.Visible = True.Left = 500.Top = 600.Width = 1000.Height = 300.Text = "创建成功"End WithEn

原创 一个简单的开机启动代码

【分享】+【讨论】一个简单的开机启动代码原先打算发一个 开机启动的 bas的 无意中发现一个更为简单的代码与大家分享Private Sub Command1_Click()Set w = CreateObject("wscript.shell")w.regwrite "HKLM/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/" & App.

原创 让文本框只能输入数字

在文本框的 keypress 事件中放入如下代码即可！If KeyAscii = 8 ThenKeyAscii = 8ElseIf KeyAscii 58 ThenKeyAscii = 0End If--- cike ---以上代码同时支持退格 

原创 捕获鼠标位置[在屏幕上的位置]

 窗体内需要以下几个控件:label1       label2     timer1设置:timer1的间隔为1代码部分: Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As LongPrivate Type POINTAPI  声明数据类型x As Longy 

原创 程序置顶

API 声明：Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Lo

原创 让窗体透明 控件可见

 在 form 中随意放入一些控件 贴入下面代码 运行可看到效果 Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Const WS_EX_TRANSPARENT   As Long = &H20&Private Declare Funct

原创 弹出"选择文件夹"对话框

API部分:Private Type BrowseInfo    hWndOwner As Long    pIDLRoot As Long    pszDisplayName As Long    lpszTitle As Long    ulFlags As Long    lpfnCallback As Long    lParam As Long    iImage As LongEn

原创 获取系统进程

 获取系统进程到列表框 exe内包括　一个list1　一个command 一个label1 请复制如下代码到代码窗口中....   CreateToolhelpSnapshot获取进程快照的API 声明   Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32S

原创 移动无框架窗体

 我们都知道窗体属性设置为无框架的时候默认它是不可以移动的!  要做好看的界面我喜欢用没有框架的窗体... 制作移动的无框架窗体可以利用API实现 声明部分: Private Declare Sub ReleaseCapture Lib "user32" () Private Declare Function SendMessage Lib "user32" Alias "SendMess

原创 VB 抓屏

 思路：模拟键盘按下抓图键  再获取剪贴板的内容就OK 了exe= command1 + picture1代码： Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As L

原创 获取CPU序列号

必须引用 Microsoft WMI Scripting v1.1 Library Private Sub Command1_Click() Dim cpuSet As SWbemObjectSet Dim cpu As SWbemObject Set cpuSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ In

原创 任务管理器中在应用程序窗口隐藏您的程序

注意:任务管理器有几个分页项目 这里说的是  应用程序窗口 隐藏            而不是进程窗口中隐藏:   很简单...App.Title = ""当然也可以通过这个属性设置你的程序在 应用程序界面显示的标题

原创 局部显示一个容器的例题

 在CSDN上看到的一个问题的解决方案 贴在这里方便下次查询 主　　题：  

原创 如何释放资源管理器中的文件到指定目录下

Dim Pic() As Byte                                    声名必须是数组为byte类型Pic = LoadResData(101, "CUSTOM")   使用loadresdate函数把资源文件数据放到变量中 101为要释放的文件编号a = App.Path & "****.***"                这个变量a存储要释放文件

原创 一个窗口慢慢消失的效果

 直接复制代码到代码窗口 关闭程序时就能看到效果  Const LWA_COLORKEY = &H1Const LWA_ALPHA = &H2Const GWL_EXSTYLE = (-20)Const WS_EX_LAYERED = &H80000Private Declare Function GetWindowLong Lib "user32" Alias "GetWindo

原创 枚举系统的输入法

示例form内 放入一个 command Private Const IME_ESC_MAX_KEY = &H1005Private Const IME_ESC_IME_NAME = &H1006Private Const GCL_REVERSECONVERSION = &H2Private Declare Function GetKeyboardLayoutList Lib "u

原创 VB内组合键的应用 1

 VB程序中组合截键的应用程序中组合截键的应用：例：在 KeyDown事件中 判断按下键 =====================If Shift = ??? And KeyCode = ??? Then ......shift =??? 表示按下的是   shift 还是 ctrl 还是 altshift =1 表示按下的是 Shift shift =2 表示按下的是 

原创 如何将文本框里的多行数据逐行记录在数组里

 这个题只要认识了这2个函数就能做了 split()         分割函数 ubound()       返回数组最大下标 使用   split   函数   分割DateTxt内的数据!     分隔条件为   换行   VBCRLF Dim   a   a=split(text1.text,vbcrlf) for   i   =   0   to   ubound(a) print

原创 规定范围内产生不重复的随机数

比如随机获取20-80范围内的任意数, 但规定获取的数不能重复我处理这类题目的方法都用 list 控件相对于数组,list的的项目可以删除,有了这个功能后这类题目就容易多了示例代码:  Private Sub Command1_Click()RandomizeFor i = 20 To 80    List1.AddItem iNext iFor i = 0 To List

原创 判断某数是否为质数 [已写成函数]

原创 将字符倒序

思路：使用   循环   字符数   to   1   配合mid   提取每个字符就可以 示范代码: Private Sub Command1_Click()Dim a As Stringa = "abcdefg"For i = Len(a) To 1 Step -1b = b & Mid(a, i, 1)Next iPrint bEnd Sub

原创 输入任意3个整数 判断是否能组成三角形 它的面积是多少?

//能组成三角形的条件是   任意2边+起来比第3边大   判断这个条件是否成立既可 求已知3边的面积[没有给出高] //   可以根据 求出面积       海伦公式:   面积＝根号[d*(d-a)*(d-b)*(d-c)]   其中d＝周长的一半 [(a+b+c)/2]        abc是三边长   示范例题:form   包括3个   text   1个   command

原创 正式使用BLOG

CSDN的 BLOG 将用来收集在CSDN 上解决过的问题或收藏的代码 以便以后查询用!-_-