Public Class Form1
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
x = 1
Timer1.Interval = 1000
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Left = Label1.Left + x * 100
If Label1.Left <= 0 Then
x = 1
End If
If Label1.Left + Label1.Width >= Me.Width Then
x = -1
End If
End Sub
End Class
......
信息监控与隐私保护永远是一对矛盾。
在对付各种信息窃取软件上。
新技术总是层出不穷。本文介绍一种古老的键盘记录器技术，确实很古老。
DOS时代人们就在用了。
但是现在它仍然很有效，在键盘过滤驱动失效的情况下，它仍然可用。但是兼容性不佳是它的一个问题。
特别是在Windows Vista操作系统上，我不能保证它是可用的。不过在可用的情况下，它能记录我所找到的各种带保护的密码框。
包括QQ2008的密码框。
在此之前你还可以看看我以前的一篇帖子。
上面介绍了一些Windows键盘响应机制的内容。
地址是：http://topic.csdn.net/t/20061224/14/5252514.html
现在的计算机键盘除了传统的PS/2键盘之外还有USB键盘，本文只介绍普通的PS/2键盘，因此本文的示例代码也只支持PS/2键盘。
对USB键盘无效。我们知道计算机要得到键盘的信息。
必须与键盘进行通信。计算� ......
Try
Dim Path As String = Server.MapPath("~/Download/") '文件路径
Path = Path & "file.txt" '文件的名称
If Not System.IO.File.Exists(Path) Then
‘如果文件不存在
Exit Sub
Else
Response.ContentType = "application/x-zip-compressed"
Response.AddHeader("Content-Disposition", "attachment;filename=" + Server.UrlPathEnco ......
Try
Dim Path As String = Server.MapPath("~/Download/") '文件路径
Path = Path & "file.txt" '文件的名称
If Not System.IO.File.Exists(Path) Then
‘如果文件不存在
Exit Sub
Else
Response.ContentType = "application/x-zip-compressed"
Response.AddHeader("Content-Disposition", "attachment;filename=" + Server.UrlPathEnco ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory.CreateDirectory(strPath)
End If
Dim PATH As String = Server.MapPath((FileUpload1.FileName))
'如果文件存在 则上传
If (FileUpload1.HasFile) Then
FileUpload1.PostedFile.SaveAs(PATH)
End If
'一:先把EXCEL导入dateView
'二:然后将dateView里的数据导入到数据库里面
'EXCEL 的连接串
& ......
Dim strPath As String = Server.MapPath("~\文件夹")
'判断保存文件路径是否存在 不存在则创建
If Not Directory.Exists(strPath) Then
Directory.CreateDirectory(strPath)
End If
Dim PATH As String = Server.MapPath((FileUpload1.FileName))
'如果文件存在 则上传
If (FileUpload1.HasFile) Then
FileUpload1.PostedFile.SaveAs(PATH)
End If
'一:先把EXCEL导入dateView
'二:然后将dateView里的数据导入到数据库里面
'EXCEL 的连接串
& ......
Dim FirstFile As String
Dim SecondFile As String
Dim FinalFile As String
Dim first() As Byte
Dim second() As Byte
Dim file1size As Long, file2size As Long
Private Sub Command3_Click()
SecondFile = Text2.Text
FirstFile = Text1.Text
FinalFile = Text3.Text
Open FirstFile For Binary Access Read As #1
file1size = LOF(1)
ReDim first(LOF(1) - 1)
Get #1, , first
Close #1
Open SecondFile For Binary Access Read As #2
file2size = LOF(2)
ReDim second(LOF(2) - 1)
Get #2, , second
Close #2
Open FinalFile For Binary Access Write As #3
Dim myarray() As Byte
myarray = LoadResData(101, "CUSTOM")
Put #3, , myarray
Put #3, 20481, first
Put #3, 20481 + file1size, second
Put #3, 20481 + file1size + file2size, "size" & file1size
Close #3
MsgBox "文件绑定完毕，自行测试！"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Exit Sub
End Sub
Private Sub Text1_DblClick()
cmdl.DialogTitle = "Choose Your First File"
cmdl.Filter = "Executable File (*.exe)|*.exe"
cmdl.Action = ......
程序效果：
当点击左边的部件图时，会弹出对话框提示你点击了哪一个区域。
程序思路：
用一个图片区域码图作为点击区域的参照，根据XY取得的颜色识别出属于哪一个区域
程序界面如下：
相关代码如下：
Visual Basic Code
Dim ColorArray ( ) As Long
Dim ColorCount As Long
Private Sub Form_Load ( )
'初始化颜色数量
ColorCount = Picture3.Width / 10
ReDim ColorArray ( 1 To ColorCount )
For X = 1 To ColorCount
ColorArray ( X ) = Picture3.Point ( ( X * 10 ) - 5, 5 )
Next X
End Sub
Private Sub Picture1_MouseDown ( Button As Integer, Shift As Integer, X As Single, Y As Single )
If Button = 1 Then
Dim NowColor As Long
NowColo ......
最新文章 : vb