WEB技术论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

搜索
热搜: ASP asp.net php
查看: 447|回复: 0
打印 上一主题 下一主题

VB 个人作品<冰龙VB记事本>

  [复制链接]

534

主题

541

帖子

2044

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2044
跳转到指定楼层
楼主
发表于 2018-1-6 16:23:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

记事本form1

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 Sub Command1_Click()
Text1(1).Text = "嵿级巅峰娯泺会所"
End Sub

Private Sub Command10_Click()
Form2.Show vbModal
End Sub

Private Sub Command11_Click()
Shell "explorer http://www.onlinedown.net/sort/", vbNormalFocus
End Sub

Private Sub Command12_Click()
Shell "explorer http://www.3800hk.com", vbNormalNoFocus
End Sub

Private Sub Command13_Click()
Shell "explorer http://vip.hack58.com/", vbNormalNoFocus
End Sub

Private Sub Command14_Click()
Shell "explorer http://www.05112.com", vbNormalNoFocus
End Sub

Private Sub Command15_Click()
Shell "explorer http://www.cn-hack.cn/", vbNormalNoFocus
End Sub

Private Sub Command16_Click()
Shell "explorer http://www.sec520.com/", vbNormalNoFocus
End Sub


Private Sub Command17_Click()
Shell "explorer http://www.7747.net/", vbNormalNoFocus
End Sub

Private Sub Command18_Click()
Text1(1).Text = Label6.Caption
End Sub

Private Sub Command19_Click()
Shell "regedit.exe", vbNormalFocus
End Sub

Private Sub Command2_Click()
Text1(1).FontSize = Text2.Text
End Sub

Private Sub Command20_Click()
Shell "reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v disableregistrytools /t REG_DWORD /d 2 /f"
End Sub

Private Sub Command21_Click()
Shell "reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\system /v disableregistrytools /f"
End Sub

Private Sub Command22_Click()
Shell "explorer http://www.hack86.com/", vbNormalNoFocus
End Sub

Private Sub Command23_Click()
Shell "explorer http://sq.onlinedown.net/down/vb6.exe", vbNormalNoFocus
End Sub

Private Sub Command24_Click()
Shell "explorer http://22.duote.com/operainternetbrowser.exe", vbNormalNoFocus
End Sub

Private Sub Command25_Click()
Shell "explorer http://www.jj20.com/", vbNormalNoFocus
End Sub

Private Sub Command26_Click()
Shell "explorer http://www.baidu.com", vbNormalNoFocus
End Sub

Private Sub Command27_Click()
Shell "explorer http://www.hackbase.com", vbNormalNoFocus
End Sub

Private Sub Command28_Click()
Shell "explorer http://logo.chinaz.com", vbNormalNoFocus
End Sub

Private Sub Command29_Click()
Shell "EXPLORER.EXE ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalNoFocus
End Sub

Private Sub Command3_Click()
Shell "cmd.exe", vbNormalNoFocus
End Sub

Private Sub Command30_Click()
Shell "explorer http://www.enet.com.cn/eschool/", vbNormalNoFocus
End Sub

Private Sub Command31_Click()
Shell "explorer http://www.haofa.net/wyzs/index.htm", vbNormalNoFocus
End Sub

Private Sub Command34_Click()
Shell "explorer http://www.5944.net/", vbNormalNoFocus
End Sub

Private Sub Command35_Click()
Form3.Show
End Sub

Private Sub Command4_Click()
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", 9)
End Sub

Private Sub Command5_Click()
Text1(1).Text = Label2.Caption
End Sub

Private Sub Command6_Click()
Text1(1).Text = Label3.Caption
End Sub


Private Sub Command7_Click()
Text1(1).Text = Label4.Caption
End Sub

Private Sub Command8_Click()
ShellExecute 0, "open", "tencent://message/?uin=" + Text3.Text, "", "", 1
End Sub

Private Sub Command9_Click()
Text1(1).Text = Label5.Caption
End Sub

Private Sub Timer1_Timer()
Text1(1).ForeColor = RGB(255 * Rnd(), 255 * Rnd(), 255 * Rnd())
End Sub

Private Sub Timer2_Timer()
vHour = Hour(Time)
If vHour > 7 And vHour < 12 Then vState = "上午"
If vHour > 11 And vHour < 13 Then vState = "中午"
If vHour > 12 And vHour < 17 Then vState = "下午"
If vHour > 16 And vHour < 24 Then vState = "晚上"
If vHour > -1 And vHour < 6 Then vState = "凌晨"
If vHour > 4 And vHour < 8 Then vState = "早上"
Label7.Caption = vState & "好,现在时间是: " & IIf(Hour(Time) > 12, Hour(Time) Mod 12, Hour(Time)) & ":" & Minute(Time) & ":" & Second(Time)
End Sub



Private Sub 保存_Click(Index As Integer)
Open "C:\Program Files\冰龙.txt" For Output As #1
Write #1, Text1(1).Text
Close
End Sub

Private Sub 打开_Click(Index As Integer)
Shell "explorer"

End Sub

Private Sub 复制_Click(Index As Integer)
Clipboard.SetText Text1(1).SelText
End Sub

Private Sub 关于_Click(Index As Integer)
Const msg1 As String = "冰龙欢迎你!QQ:190066120" & vbCrLf & "  2O○⒐、嵿級〃·━━━━━■━━━━━被认可爲" & vbCrLf & " ☆╲゛┊╲最具影响力旳〃训豿團"
Const msg2 As String = "作者."
MsgBox msg1, vbOKOnly, msg2     '此处代码一定不能添加
End Sub

Private Sub 剪切_Click(Index As Integer)
Clipboard.SetText Text1(1).SelText
If TypeOf Screen.ActiveControl Is TextBox Then
Screen.ActiveControl.SelText = ""
End If

End Sub

Private Sub 另存为_Click(Index As Integer)

End Sub

Private Sub 全选_Click(Index As Integer)
Text1(1).SelStart = 0
Text1(1).SelLength = Len(Text1(1).Text)
Text1(1).SetFocus
End Sub

Private Sub 退出_Click(Index As Integer)
End
End Sub

Private Sub 新建_Click(Index As Integer)
Text1(1).Text = ""
End Sub

Private Sub 粘贴_Click(Index As Integer)
If Len(Clipboard.GetText) Then
        Text1(1).SelText = Clipboard.GetText
    End If
End Sub



记事本form2

Private Sub Command1_Click()
Shell "cmd /c" + Text1.Text, vbNormalFocus
End Sub

Private Sub Command2_Click()
Form2.Hide
End Sub

记事本form3

Private Sub Command1_Click()
Text1.Text = Label1.Caption
End Sub

Private Sub Command2_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Clipboard.SetText Text1.SelText
End Sub

Private Sub Command4_Click()
Form3.Hide
End Sub
爱仿站的中年人
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

|手机版|码农集营 ( ) 深圳龙岗交友群

GMT+8, 2018-11-7 18:27 , Processed in 0.085946 second(s), 22 queries .

Powered by 码农集营 X3.4

快速回复 返回顶部 返回列表