主窗体代码：
'打开网页
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 Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
'获取驱动器类型
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Private Const DRIVE_UNKNOWN = 0
Private Const DRIVE_NO_ROOT_DIR = 1
Private Const DRIVE_REMOVABLE = 2
Private Const DRIVE_FIXED = 3
Private Const DRIVE_REMOTE = 4
Private Const DRIVE_CDROM = 5
Private Const DRIVE_RAMDISK = 6
'关闭窗体
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function PostMes ......
添加2个text，一个command，一个 WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "username"
vTag.Value = Text1 '用户名
End Select
End If
If vTag.Type = "password" Then
Select Case vTag.Name
Case "password"
vTag.Value = Text2 '密码
End Select
End If
If vTag.Name = "remUser" Then '如果不要记住用户名，此句删除
vTag.Click
End If
If vTag.Type = "submit" Then '如果不要点击按钮登陆，把此if的代码删除
vTag.Click
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://mail.163.com/"
End Sub ......
程序隐形的原理
对于一个隐形程序而言，最基本的要求是：
1. 不在桌面出现界面；
2. 不在任务栏出现图标；
3. 程序名从任务管理器名单中消失。
Public Declare Function GetCurrentProcessId Lib “kernel32” () As Long
’获得当前进程ID函数的声明
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As Long, ByVal ServiceFlags As Long) As Long
’在系统中注册当前进程ID函数的声明
设置Form1的属性： form1.Visible=False
form1.ShowInTaskBar=False
Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal nDrive As String) As Long
’获得当前驱动器类型函数的声明
Private Declare Function GetVolumeInformation Lib “kernel32” Alias “GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Lo ......
Option Explicit
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Public Const REG_SZ = 1
Public Const HKEY_LOCAL_MACHINE =
'*************************************************************************
'**函 数 名： SetAutoRun
'**输 入： ByVal Autorun(Boolean) -
'**输 出： 无
'**功能描述： 随WINDOWS自动启动/取消启动模块
'**全局变量：
'**调用方法： Call SetAutoRun(True/False)
'**作 &nb ......
python 2.4中datetime有strftime方法而无strptime方法
而python2.5中这两个方法均有，而我的开发环境正好是python 2.5，而运行环境则是python 2.4
开发环境下调试好的程序，在服务器上就不run。查了一下python的官方文档
，斜体写着：New
in version 2.5.
不兼容的代码如下：
Python语言
:
test_strptime.py
resulttime =
datetime.datetime.strptime(timepoint, '%Y-%m-
%d
'
) #这可是pydev自动弹出来的方法
怎么改下让它在2.4下也能跑呢？google下，
得答案如下：
t = time.strptime(timepoint, '%Y-%m-%d')
resulttime = datetime.datetime(*t[:6])
另：附转义符对应意义如下
%a 本地简化星期名称
%A 本地完整星期名称
%b 本地简化的月份名称
%B 本地完整的月份名称
%c 本地相应的日期表示和时间表示
%d 月内中的一天（0-31）
%H 24小时制小时数（0-23）
%I 12小时制小时数（01-12）
%j 年内的一天（001-366）
%m 月份（01-12）
%M 分钟数（00=59）
%p 本地A.M.或P.M.的等价符
%S 秒（00-59）
%U 一年中的星期数（00-53）星期天为星期的开始
%w 星期（0-6），星期天为星期的开始
%W 一年中的星期数（00-53）星期一为星期的开始
%x ......
from link http://www.tt010.net/cms/show_article/1057.html
发表评论
Post by : BossAdmin @[2009-12-12 17:11:20] views:115
adodb：我们领导推荐的数据库连接组件
bsddb3：BerkeleyDB的连接组件
Cheetah-1.0：我比较喜欢这个版本的cheetah
cherrypy：一个WEB framework
ctypes：用来调用动态链接库
DBUtils：数据库连接池
django：一个WEB framework
docutils：用来写文档的
dpkt：数据包的解包和组包
MySQLdb：连接MySQL数据库的
py2exe：用来生成windows可执行文件
Pylons：我们领导推荐的web framework
pysqlite2：SQLite的连接组件
pythonwin：Python的Windows扩展
setuptools：无奈，PEAK的一套python包管理机制
sqlalchemy：数据库连接池
SQLObject：数据库连接池
twisted：巨无霸的网络编程框架
wxPython-2.6：因为需要保持与linux相同的版本才没用最新的，GUI编程框架
pypcap：抓包的
python-dnet：控制网络安全的其他设备
pyevent：Python的事件支持
pydot：画图的，graphiz
sendpkt：Python发包
simplejson：JSON的支持
DPKT：raw-scoket网络编程
Cx-oracle：连接oracle的好东东
Mechanize：爬虫连接网站常用
PIL：图像处理工具� ......
最新文章 :