Action_Note.txt
Cofing.ini
Msg_Note.txt
System_Note.txt
WHATNEW.TXT
Game_Thumbs
BOX100.bbk
BOX101.bbk
ABOUTME.png
BIRTHDAY.png
BORING.PNG
BOXTIT.PNG
CHECK_H.png
CHECK_N.png
C_LOAD.GIF
DefaultHead.BMP
EDITIT.png
FACE_H.PNG
FACE_N.PNG
FILECOPY.png
FIVE_T.png
F_LIST.png
GOOD_M.PNG
GOOD_N.PNG
HELP_H.png
HELP_N.png
IMINFO.png
IMPASS.png
INFOSET.png
ITUNES.png
LOADING.png
LOADING0.png
LOADING1.png
LOADING2.png
LOADING3.png
LOADING4.png
LOADING5.png
LOADING6.png
LOADING7.png
LOADING8.png
LOCKED.png
LOGO_65.png
MSG_ASK.png
MSG_DONE.png
MSG_INFO.png
MSG_WRN.png
M_LIST.png
M_LOAD.png
NONONO.PNG
NO_FIND.PNG
NO_WORD.PNG
OFFLINE.png
OKOKOK.PNG
ONLINE.png
ONLINE27.png
OTHERSAY.png
PHOTOSET.png
PLAYBOX.png
SERCHING.png
SER_NT.png
SHD_TXT.png
SHOW_LV.PNG
SIMSIM.PNG
SINGER.png
SINGER_D.png
UI_LOAD.png
UI_TIT.png
U_R_GOD.PNG
DOWNLOAD_CO.WAV
NOMOVE.WAV
PUSHBOX.WAV
SNDLOOP.wav
AboutBox.frx
CByteStream.cls
cDIBProcess.cls
cDIBSection.cls
clsClip.cls
ClsCodeCheck.cls
clsDeskLrc.cls
clsFiniteField.cls
clsGraph.cls
clsID3v1.cls
clsMD5.cls
clsNet.cls
CLSPNG.cls
CLSPOP.cls
clsQRCode.cls
clsReedSolomon.cls
clsTopMenu.cls
cMagneticWnd.cls
cRijndael.cls
cScrollbarDraw.cls
cSubclass.cls
DIBSection.cls
FastDrawing.cls
FORMNAME.frx
FRMACT.frx
Frmadd.frx
FRMBAG.frx
FRMBIRTH.frx
FRMBOARD.frx
FRMBOOK.frx
FRMBOR.frx
FrmChat.frx
FrmChatBk.frx
FRMCHOSE.frx
FRMCOLOR.frx
FRMCOPEN.frx
FRMDOWN.frx
FRMEND.frx
FRMGDICHAT.frx
FRMHEAD.frx
FrmHelp.frx
FRMHIS.frx
FRMKEYBOARD.frx
FrmLock.frx
FRMLRC.frx
frmmabk.frx
FRMMIN.frx
FRMMYID.frx
FrmNetMusic.frx
FrmNew.frx
FRMNEWS.frx
frmpass.frx
frmpassbk.frx
FrmPicInfo.frx
FrmPro.frx
frmReceive.frx
frmReceiving.frx
FRMROATE.frx
frmRotate.frx
frmSend.frx
FRMSENDING.frx
frmset.frx
FrmSetBK.frx
FRMSETINFO.frx
FRMTASK.frx
FRMTRANS.frx
FRMTXZ.frx
FrmWhatNew.frx
FrmWrong.frx
FRMXXOO.frx
IBrowse.ctl
ICEE_Calender.ctl
ICEE_Calender.ctx
ICEE_CHECK.ctl
ICEE_COMMAND.ctl
ICEE_COMMAND.ctx
ICEE_DOWNLOAD.ctl
ICEE_GIF.ctl
ICEE_KEY.ctl
ICEE_KEY.ctx
ICEE_LRC.ctl
ICEE_NET.ctl
ICEE_PIC.ctl
ICEE_PIC.ctx
ICEE_TEXT.ctl
ICEE_WIN8.ctl
ICHECK.ctl
ICHECK.ctx
iSubClass.cls
I_COMBO.ctl
I_COMBO.ctx
MSCOMCTL.oca
MSCOMCTL.OCX
MSWINSCK.OCX
pcMemDC.cls
QMListBox.oca
QMLISTBOX.OCX
ROUND_FORM.cls
Shadow.oca
Shadow.OCX
ucBrowse.ctl
UCSCROLLBAR.CTL
WINSUBHOOK.tlb
主窗体.frx
五子棋.frx
俄罗斯方块.frx
启动延时.cls
文件分割.frx
连连看.frx
VERSION 5.00
Object = &{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0&; &wmp.dll&
Object = &{248DD890-BB45-11CF-9ABC-B78D}#1.0#0&; &MSWINSCK.OCX&
Object = &{831FDD16-0C5C-11D2-A9FC-DA1}#2.0#0&; &MSCOMCTL.OCX&
Object = &{A16AEA80-F8AA--5B898C.0#0&; &QMLISTBOX.OCX&
Begin VB.Form frmma
Appearance
AutoRedraw
&H0047491F&
BorderStyle
ClientHeight
ClientLeft
ClientWidth
'Solid
&主窗体.frx&:0000
KeyPreview
'Source
'False
'False
ScaleHeight
'Pixel
ScaleWidth
ShowInTaskbar
'False
Begin VB.PictureBox POPS
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
&新建便签&
Begin VB.PictureBox PSP
AutoRedraw
&H001D1DDA&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
Begin VB.PictureBox PF
AutoRedraw
&H00423E39&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox iFrame
Appearance
AutoRedraw
&H002A1C05&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PF
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin iCee.ICEE_KEY ICL
Begin VB.TextBox TXTPOUP
Appearance
&H00AEC3D2&
BorderStyle
BeginProperty Font
&Comic Sans MS&
'False
'False
Strikethrough
'False
EndProperty
Begin VB.PictureBox PICLG
Appearance
AutoRedraw
&H00C4CD47&
BorderStyle
&H00F5E7D0&
ScaleHeight
'Pixel
ScaleWidth
'False
Begin MSWinsockLib.Winsock WinC
Begin VB.PictureBox PF
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin iCee.ICEE_COMMAND ICN
Begin VB.TextBox txtEntry
&H00FFFFFF&
BorderStyle
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
Begin iCee.ICEE_COMMAND ICN
Begin VB.PictureBox PF
&H00231C09&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.TextBox txtLogBase
'Center
Appearance
&H00FFFFFF&
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
&H001F1FE2&
Begin VB.TextBox txtDecimal
Appearance
&H00FFFFFF&
Begin VB.VScrollBar vsbDecimal
Begin VB.OptionButton optBaseMode
&H00231C09&
&十六进制&
&H00FFFFFF&
Begin VB.OptionButton optBaseMode
&H00231C09&
&H00FFFFFF&
Begin VB.OptionButton optBaseMode
&H00231C09&
&H00FFFFFF&
Begin VB.OptionButton optBaseMode
&H00231C09&
&H00FFFFFF&
Begin VB.Frame fraAngleM
Appearance
&H00231C09&
BorderStyle
Begin VB.OptionButton optAngMode
&H00231C09&
&H00FFFFFF&
Begin VB.OptionButton optAngMode
&H00231C09&
&H00FFFFFF&
Begin VB.Label lblEntry
'Transparent
&log 底数&
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
Begin VB.Label lblEntry
'Transparent
&保留到小数点后&
&H00FFFFFF&
Begin VB.Label lblEntry
'Transparent
&H00FFFFFF&
Begin VB.TextBox txtAnswer
&H00231C09&
BorderStyle
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ScrollBars
'Vertical
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.Label LA
'Transparent
&输入完整表达式程式即可&
Begin VB.PictureBox PF
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PF
Appearance
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.CheckBox Check5
&填充标题栏&
&H00FFFFFF&
Begin VB.CheckBox Check4
&填充主界面&
&H00FFFFFF&
Begin iCee.ICEE_COMMAND IST
Begin iCee.ICEE_COMMAND IST
Begin iCee.ICEE_COMMAND IST
Begin iCee.ICEE_COMMAND IST
Begin VB.Image IMBK
Appearance
Begin VB.Label LBITEM
'Transparent
&自定义背景颜色&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&自定义背景图片&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&重置背景图片&
&H00FFFFFF&
Begin VB.Shape SB
BorderStyle
'Transparent
'Solid
Begin VB.Shape SB
BorderColor
&H000080FF&
BorderWidth
Begin VB.Image IBK
&主窗体.frx&:0FA2
Begin VB.Image IBK
&主窗体.frx&:186C
Begin VB.Image IBK
&主窗体.frx&:2136
Begin VB.Image IBK
&主窗体.frx&:2A00
Begin VB.Image IBK
&主窗体.frx&:32CA
Begin VB.Image IBK
&主窗体.frx&:3B94
Begin VB.Image IBK
&主窗体.frx&:445E
Begin VB.Image IBK
&主窗体.frx&:4D28
Begin VB.Image IBK
&主窗体.frx&:55F2
Begin VB.Image IBK
&主窗体.frx&:5EBC
Begin VB.Image IBK
&主窗体.frx&:6786
Begin VB.Label LA
Appearance
'Transparent
&外观设置&
&H00C0C0C0&
Begin VB.Image IBK
&主窗体.frx&:7050
Begin VB.PictureBox Picd
AutoRedraw
BorderStyle
&H00C0C0C0&
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PICED
AutoRedraw
&H006C7509&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Label LBITEM
'Transparent
&更换图片&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&涂鸦此图片&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&作为背景图片&
&H00C0C0C0&
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image MYPT
Appearance
BorderStyle
'Fixed Single
OLEDropMode
'Manual
Begin VB.Image IMR
Begin VB.PictureBox PDB
Appearance
AutoRedraw
&H00B6B067&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox Command2
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Label C2
'Center
'Transparent
Begin VB.Label LA
'Center
Appearance
'Transparent
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
'False
Begin VB.Label 提示信息
'Right Justify
Appearance
'Transparent
&正在初始化内存&
&H00FFFFFF&
UseMnemonic
'False
Begin VB.PictureBox PP
Appearance
AutoRedraw
&H002A1C05&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PMDL
AutoRedraw
&H006D5818&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Image K
'False
&主窗体.frx&:791A
Begin VB.Label LA
'Transparent
&H00E0E0E0&
Begin VB.PictureBox Pmusic
Appearance
AutoRedraw
&H00B6B067&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox Mbar
Appearance
AutoRedraw
&H007A7417&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Image IMCAD
Begin VB.Image IMCFIND
Begin VB.Image IMCZORD
Begin VB.Image IMCDEL
Begin VB.PictureBox Pser
Appearance
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.TextBox TTS
BorderStyle
&H00FFFFFF&
&快速定位列表内歌曲&
Begin MusicListBox.QMListBox PLIST
BeginProperty Font {0BE-11CE-9DE3-00AA004BB851}
'False
'False
Strikethrough
'False
EndProperty
ItemHeight
ItemBkColor1
ItemBkColor2
ItemSelBkColor
ItemNorTextColor=
ItemSelTextColor=
ItemPlyTextColor=
'False
BorderColor
BorderWidth
Begin WMPLibCtl.WindowsMediaPlayer Wm
'False
currentPosition =
defaultFrame
currentMarker
invokeURLs
'False
'False
stretchToFit
'False
windowlessVideo =
'False
'False
enableContextMenu=
fullScreen
'False
SAMIFilename
captioningID
enableErrorDialogs=
'False
Begin VB.PictureBox PUNLIKE
AutoRedraw
&H006D5818&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Image K
'False
&主窗体.frx&:7CA4
Begin VB.Label LA
'Transparent
&H00E0E0E0&
Begin VB.PictureBox PLIKE
AutoRedraw
&H006D5818&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Label LA
'Transparent
&H00E0E0E0&
Begin VB.Image K
'False
&主窗体.frx&:802E
Begin VB.PictureBox PFile
AutoRedraw
&H00423E39&
BorderStyle
&H00FFFFFF&
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PF
AutoRedraw
&H00FFFFFF&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin iCee.ICEE_KEY ICL
Begin VB.Label LA
'Center
Appearance
'Transparent
&您还没登陆呢&
Begin iCee.GIF M_GIF
'False
&主窗体.frx&:83B8
Begin VB.Label LA
Appearance
'Transparent
&未知用户&
&H00C0C0C0&
Begin VB.Image UL
Begin VB.Shape SB
BorderColor
&H005C6105&
Begin VB.PictureBox PSEND
AutoRedraw
&H006D5818&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Image K
'False
&主窗体.frx&:83D0
Begin VB.Label LA
'Transparent
&发送到USB&
&H00E0E0E0&
Begin VB.PictureBox PICFIND
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin iCee.ICEE_KEY CSER
Begin VB.PictureBox PF
AutoRedraw
&H00FFFFFF&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.ListBox ListSer
Appearance
&H00FFFFFF&
CausesValidation=
'False
&主窗体.frx&:875A
&主窗体.frx&:875C
MultiSelect
'Extended
OLEDragMode
'Automatic
Begin VB.ComboBox CBFIND
Begin VB.ListBox lstS
Appearance
&H00FFFFFF&
'False
Begin VB.Label TTP
'Transparent
&H00FFFFFF&
'False
Begin VB.PictureBox PSINGER
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
ScaleWidth
'False
Begin VB.Image IMCLEAR
ToolTipText
&删除封面&
'False
Begin VB.Image IMSERG
OLEDropMode
'Manual
Begin VB.PictureBox PICDL
AutoRedraw
&H002A1C05&
BorderStyle
OLEDropMode
'Manual
&主窗体.frx&:875E
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
&下载内容&
Begin VB.Label LA
'Center
'Transparent
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00E0E0E0&
Begin VB.PictureBox PICBACK
AutoRedraw
&H002A1C05&
BorderStyle
OLEDropMode
'Manual
&主窗体.frx&:9A60
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
&查看列表&
Begin VB.Label LA
'Center
'Transparent
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00E0E0E0&
Begin VB.PictureBox PV
AutoRedraw
&H006D5818&
BorderStyle
ScaleHeight
ScaleWidth
'False
Begin VB.Shape ML
&H00E0E0E0&
'Opaque
BorderColor
BorderStyle
'Transparent
Begin VB.PictureBox IU
AutoRedraw
&H002A1C05&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin iCee.ICEE_KEY ICL
Begin VB.TextBox TXTSINGER
Appearance
&H00E3E3E3&
BorderStyle
'False
Begin VB.Label LA
Appearance
'Transparent
Begin VB.Label LA
Appearance
'Transparent
Begin VB.Label LA
Appearance
'Transparent
Begin VB.Label LA
Appearance
'Transparent
Begin VB.Label LBITEM
Appearance
'Transparent
&修改歌手&
&H00C0C0C0&
Begin VB.Label LBSINGER
'Transparent
Begin VB.Label LBITEM
'Right Justify
Appearance
'Transparent
&H00C0C0C0&
Begin VB.Label LBITEM
Appearance
'Transparent
&播放顺序&
&H00C0C0C0&
Begin VB.Image IMVOL
Begin VB.Image IPLIST
OLEDropMode
'Manual
Begin VB.Image ILOCAL
OLEDropMode
'Manual
Begin VB.Image ISERCH
OLEDropMode
'Manual
Begin VB.Image EI
'False
OLEDropMode
'Manual
'False
Begin VB.Image IMOPEN
Begin VB.Label LBLRC
'Transparent
&为何流浪,心碎的海洋&
&H00C0C0C0&
OLEDropMode
'Manual
Begin VB.Label LBSONG
Appearance
'Transparent
BeginProperty Font
&Arial Black&
'False
'False
Strikethrough
'False
EndProperty
&H00C0C0C0&
OLEDropMode
'Manual
Begin VB.Image PLAYB
OLEDropMode
'Manual
Begin VB.Image INEXT
OLEDropMode
'Manual
Begin VB.Image IPRE
OLEDropMode
'Manual
Begin VB.Image K
OLEDropMode
'Manual
Begin VB.Image K
'False
Begin VB.PictureBox PF
AutoRedraw
&H00413D38&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin iCee.ICEE_KEY ICL
Begin iCee.ICEE_KEY ICL
Begin VB.Line Line1
BorderColor
BorderStyle
Begin VB.Label LA
Appearance
'Transparent
&程序检测到您的IE版本过低,是否升级&
&H00FFFFFF&
Begin VB.Image IMEND
ToolTipText
Begin VB.PictureBox PICTIME
AutoRedraw
&H006C7509&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PICAD
Appearance
AutoRedraw
&H00231C09&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Timer TMAD
'False
Begin iCee.ICEE_COMMAND ICZ
'False
Begin VB.PictureBox PicZoom
&H002A1C05&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin iCee.ICEE_COMMAND ICZ
Begin VB.Timer tmrZoom
'False
Begin iCee.ICEE_COMMAND ICZ
Begin iCee.ICEE_COMMAND ICZ
Begin iCee.ICEE_COMMAND ICZ
Begin VB.PictureBox PR
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PICTOOL
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PF
AutoRedraw
BorderStyle
'Vertical Line
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Image ld2
&主窗体.frx&:AD62
ToolTipText
'False
Begin VB.Image pe1
&主窗体.frx&:B2BA
ToolTipText
&自定义图片(你可以定义7张)&
Begin VB.Image ld1
&主窗体.frx&:B876
ToolTipText
Begin VB.Image ld3
&主窗体.frx&:BDCE
ToolTipText
'False
Begin VB.Image pe3
&主窗体.frx&:C326
ToolTipText
&自定义图片(你可以定义7张)&
'False
Begin VB.Image pe2
&主窗体.frx&:C8E2
ToolTipText
&自定义图片(你可以定义7张)&
'False
Begin VB.PictureBox IMJ
Appearance
AutoRedraw
&H004E4E4E&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
'False
Begin VB.PictureBox PF
AutoRedraw
&H00413D38&
BorderStyle
&H00FFFFFF&
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Label LA
'Center
'Transparent
&游戏盒子&
&H00E0E0E0&
OLEDropMode
'Manual
Begin VB.PictureBox PLOGU
Appearance
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PLOGO
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PICSER
Appearance
AutoRedraw
&H00231C09&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.TextBox TXTBAIDU
Appearance
&H00FFFFFF&
BorderStyle
&&请输入关键词&&
Begin VB.ListBox LISTBAIDU
&H00FFFFFF&
'False
Begin VB.Image IMBAIDU
ToolTipText
&关闭搜索框&
Begin VB.Shape SB
'Opaque
BorderColor
'Rounded Rectangle
Begin VB.PictureBox Picture2
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox Picture1
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Timer TMO
'False
Begin VB.Timer Timefriend
'False
Begin VB.Timer Timetool
'False
Begin VB.Timer TMRZ
'False
Begin VB.Timer TmrBK
Begin VB.Timer TMP
'False
Begin VB.Timer Timers
'False
Begin VB.PictureBox pc
Appearance
AutoRedraw
&H003F3B36&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Label lbthing
'Transparent
&欢迎使用1.22全新版本,更多精彩等你发现&
OLEDropMode
'Manual
Begin VB.PictureBox PF
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PicUse
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin iCee.ICEE_WIN8 IW
Begin VB.PictureBox PICCLIP
Appearance
AutoRedraw
&H00231C09&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox ImgPreview
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
'False
Begin iCee.ICEE_COMMAND ICT
'False
Begin MSComctlLib.ListView ListView1
HideSelection
FullRowSelect
SmallIcons
Appearance
BeginProperty Font {0BE-11CE-9DE3-00AA004BB851}
'False
'False
Strikethrough
'False
EndProperty
Begin MSComctlLib.ImageList iCLIP
ImageWidth
ImageHeight
BeginProperty Images {2C247F25--B16A-00C0F0283628}
NumListImages
BeginProperty ListImage1 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:CE9E
EndProperty
BeginProperty ListImage2 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:E830
EndProperty
EndProperty
Begin VB.PictureBox PVP
AutoRedraw
&H00231C09&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin iCee.ICEE_COMMAND ICC
'False
Begin iCee.ICEE_COMMAND ICC
'False
Begin iCee.ICEE_COMMAND ICC
'False
Begin iCee.ICEE_COMMAND ICC
'False
Begin iCee.ICEE_COMMAND ICC
'False
Begin VB.Image IPR
Appearance
'False
Begin VB.TextBox txtText
&H00FFFFFF&
BorderStyle
BeginProperty Font
'False
'False
Strikethrough
'False
EndProperty
OLEDragMode
'Automatic
ScrollBars
'Vertical
'False
Begin VB.Label LBITEM
'Center
'Transparent
&H00FFFFFF&
Begin VB.PictureBox PICMEM
AutoRedraw
&H00563AB6&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.PictureBox PICCPU
Appearance
AutoRedraw
BorderStyle
&H0005FFFE&
&H0005FFFE&
ScaleHeight
ScaleWidth
Begin VB.Image IMCP
ToolTipText
&导出截图&
Begin VB.Image IMGUSB
OLEDropMode
'Manual
ToolTipText
Begin VB.Label LA
'Transparent
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
&CPU使用率&
Begin VB.Label LA
'Transparent
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
&内存使用率&
Begin VB.Label LA
'Transparent
&15°C&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
Begin VB.Label LA
'Transparent
&750MB / 1024MB&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
Begin VB.Label LA
'Transparent
&750MB / 1024MB&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
Begin VB.Label LA
'Transparent
&上传速度:1M&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
&上传速度&
Begin VB.Label LA
'Transparent
&下载速度:2M&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
&下载速度&
Begin VB.Label LA
'Right Justify
'Transparent
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
&虚拟内存&
Begin VB.Label LA
'Center
'Transparent
&1530MB / 7777 MB&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
ToolTipText
Begin VB.PictureBox picABOUT
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.Label LBITEM
'Right Justify
'Transparent
&H00C0C0C0&
ToolTipText
&修订次数&
Begin VB.Label LBITEM
'Transparent
&更新内容&
&H00FFFFFF&
Begin VB.Label LBITEM
'Transparent
&官方论坛&
&H00FFFFFF&
Begin VB.Label LBITEM
'Right Justify
'Transparent
&帮助与支持&
&H00FFFFFF&
Begin VB.Image IMCHK
Begin iCee.ICEE_WIN8 IW
Begin iCee.ICEE_WIN8 IW
Begin iCee.ICEE_WIN8 IW
Begin iCee.ICEE_WIN8 IW
Begin iCee.ICEE_WIN8 IW
Begin iCee.ICEE_WIN8 IW
Begin iCee.ICEE_WIN8 IW
Begin VB.Image IMDO
Begin VB.Label LBITEM
'Transparent
&计 算 器&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&资源情况&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&音乐播放&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&新建便签&
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.Label LBITEM
'Center
'Transparent
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.Label LA
'Center
'Transparent
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00FFFFFF&
Begin VB.PictureBox PICIM
Appearance
AutoRedraw
&H007A7417&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PICBUG
Appearance
AutoRedraw
BorderStyle
&H0099FFFF&
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.TextBox TXTBUG
Appearance
&H007A7417&
BorderStyle
&H00FFFFFF&
ScrollBars
'Vertical
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.Label LBITEM
'Transparent
&H00C0C0C0&
Begin VB.PictureBox PICLO
Appearance
AutoRedraw
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
Begin VB.PictureBox PICNET
Appearance
AutoRedraw
&H007A7417&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.TextBox Text3
&H00F5E7D0&
BorderStyle
BeginProperty DataFormat
HaveTrueFalseNull=
FirstDayOfWeek
FirstWeekOfYear =
SubFormatType
EndProperty
'DISABLE
&&输入IP&&
Begin VB.PictureBox PF
AutoRedraw
&H00CCF4F3&
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.ListBox lstRes
Appearance
&H00CEF5F3&
&H00231C09&
IntegralHeight
'False
&主窗体.frx&:101C2
&主窗体.frx&:101C4
Begin VB.PictureBox CMDFIND
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin VB.Label LOIL
'Center
'Transparent
Begin VB.TextBox txtFrom
Appearance
BorderStyle
&H00FFFFFF&
Begin VB.TextBox txtTo
Appearance
BorderStyle
&H00FFFFFF&
Begin VB.Label lblTo
'Right Justify
'Transparent
&结束 000.000.000.&
&H00FFFFFF&
Begin VB.Label lblFrom
'Right Justify
'Transparent
&起始 000.000.000.&
&H00FFFFFF&
Begin VB.TextBox Text2
&H00FFFFFF&
BorderStyle
BeginProperty DataFormat
HaveTrueFalseNull=
FirstDayOfWeek
FirstWeekOfYear =
SubFormatType
EndProperty
HideSelection
'False
'DISABLE
&&请输入密码&&
Begin VB.TextBox Text1
&H00FFFFFF&
BorderStyle
BeginProperty DataFormat
HaveTrueFalseNull=
FirstDayOfWeek
FirstWeekOfYear =
SubFormatType
EndProperty
'DISABLE
&&请输入ID&&
Begin VB.CheckBox Check2
Appearance
&记住密码&
&H00D3D3D3&
ToolTipText
&记住本次登陆的密码&
Begin VB.CheckBox Check3
Appearance
&自动登陆&
&H00D3D3D3&
ToolTipText
&下次程序启动时会自动为您进行登录&
Begin VB.PictureBox Command1
AutoRedraw
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
&登录服务器&
Begin VB.Label C1
'Center
'Transparent
ToolTipText
&登陆服务器&
Begin VB.CheckBox Check1
Appearance
&新用户登陆&
&H00D3D3D3&
ToolTipText
&以新用户登录&
Begin MSWinsockLib.Winsock Winsock1
RemoteHost
&127.0.0.1&
RemotePort
Begin VB.Image IMG_NT
Begin VB.Label LBITEM
'Center
Appearance
'Transparent
&H00C0C0C0&
Begin VB.Timer BuddyUpdater
'False
Begin VB.PictureBox PICFI
Appearance
AutoRedraw
&H007A7417&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin MSComctlLib.ImageList USEZT
ImageWidth
ImageHeight
UseMaskColor
'False
BeginProperty Images {2C247F25--B16A-00C0F0283628}
NumListImages
BeginProperty ListImage1 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:101C6
EndProperty
BeginProperty ListImage2 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:11FCA
EndProperty
BeginProperty ListImage3 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:13DCE
EndProperty
BeginProperty ListImage4 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:15BD2
EndProperty
BeginProperty ListImage5 {2C247F27--B16A-00C0F0283628}
&主窗体.frx&:179D6
EndProperty
EndProperty
Begin VB.Label LBFN
'Transparent
&H00FFFFFF&
Begin VB.Label LBFW
'Transparent
&H00FFFFFF&
Begin VB.Label LBFA
'Transparent
&H00FFFFFF&
Begin VB.Label LBFS
'Transparent
&H00FFFFFF&
Begin VB.Label LBFE
'Transparent
&H00FFFFFF&
Begin VB.Label LBFQ
'Transparent
&H00FFFFFF&
Begin VB.PictureBox PICPASS
Appearance
AutoRedraw
BorderStyle
&H00FFFFFF&
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.TextBox TXTPASS
Appearance
&H007A7417&
BorderStyle
BeginProperty DataFormat
HaveTrueFalseNull=
FirstDayOfWeek
FirstWeekOfYear =
SubFormatType
EndProperty
&H00FFFFFF&
Begin VB.Label LBITEM
'Transparent
&H00FFFFFF&
Begin VB.Label LBITEM
'Transparent
&确定修改&
&H00C0C0C0&
Begin VB.PictureBox PICIG
AutoRedraw
&H00633F0E&
BorderStyle
'Horizontal Line
&H00FFFFFF&
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
'False
Begin VB.ListBox LSTBOX
&H00FFFFFF&
&主窗体.frx&:197DA
&主窗体.frx&:197DC
Begin VB.ComboBox TXTBOX
Appearance
&H00FFFFFF&
Begin VB.Label LBITEM
Appearance
'Transparent
'False
&H00E0E0E0&
Begin VB.Label LBITEM
Appearance
'Transparent
'False
&H00E0E0E0&
Begin VB.TextBox TXTSER
Appearance
&H00FFFFFF&
BorderStyle
BeginProperty DataFormat
HaveTrueFalseNull=
FirstDayOfWeek
FirstWeekOfYear =
SubFormatType
EndProperty
OLEDropMode
'Manual
&请输入对方ID按回车键确认&
Begin MSComctlLib.TreeView TreeView1
Indentation
FullRowSelect
Appearance
BeginProperty Font {0BE-11CE-9DE3-00AA004BB851}
'False
'False
Strikethrough
'False
EndProperty
OLEDropMode
Begin VB.Image IMS
Begin VB.Label LA
'Center
Appearance
'Transparent
&好友列表&
&H00C0C0C0&
Begin VB.Label LBC
Appearance
'Transparent
&你还没有好友呢&
&H00FFFFFF&
Begin VB.PictureBox pl
Appearance
BorderStyle
ScaleHeight
'Pixel
ScaleWidth
Begin iCee.ICEE_COMMAND ICZ
'False
Begin VB.PictureBox PNZ
Appearance
AutoRedraw
&H003F3B36&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
'False
Begin VB.PictureBox PICMU
Appearance
AutoRedraw
&H003F3B36&
BorderStyle
OLEDropMode
'Manual
ScaleHeight
'Pixel
ScaleWidth
ToolTipText
Begin VB.Image IMNEW
&主窗体.frx&:197DE
ToolTipText
&腾讯每日头条&
Begin VB.Image IMONEY
&主窗体.frx&:19B68
ToolTipText
&我的钱包&
Begin VB.Image IMGEM
OLEDropMode
'Manual
&主窗体.frx&:19EF2
ToolTipText
&未读消息&
Begin VB.Label lbzt
'Right Justify
'Transparent
&H00A5A5A5&
Begin VB.Label LCO
'Right Justify
'Transparent
Begin VB.Image IMSKIN
&主窗体.frx&:1A27C
Begin VB.Image IMAD
OLEDropMode
'Manual
ToolTipText
&查看海报&
'False
Begin VB.Image IMCHAT
OLEDropMode
'Manual
Begin VB.Image IMPIC
OLEDropMode
'Manual
Begin VB.Image IMMAIN
OLEDropMode
'Manual
Begin VB.Image IMSER
OLEDropMode
'Manual
ToolTipText
Begin VB.Image E2
'False
OLEDragMode
'Automatic
OLEDropMode
'Manual
'False
Begin VB.Image SETME
OLEDropMode
'Manual
ToolTipText
&快速设置&
Begin VB.Image BACKME
OLEDropMode
'Manual
ToolTipText
&返回主面板&
'False
Begin VB.Label lbuse
'Transparent
&心在流浪&
BeginProperty Font
&微软雅黑&
'False
'False
Strikethrough
'False
EndProperty
&H00C0C0C0&
OLEDropMode
'Manual
Begin VB.Image MINIME
OLEDropMode
'Manual
ToolTipText
Begin VB.Image UNME
OLEDropMode
'Manual
Begin VB.Image uselogo
OLEDropMode
'Manual
Begin VB.Image E2
OLEDropMode
'Manual
'False
Begin VB.Image K
OLEDropMode
'Manual
Begin VB.Shape SB
&H003F3B36&
BorderStyle
'Transparent
&H003F3B36&
'Solid
Begin VB.Shape SB
&H002EBC7C&
BorderColor
&H002EBC7C&
BorderStyle
'Inside Solid
Begin VB.Image IMGAME
Begin VB.Label LBSG
'Transparent
&From Zero To a Hero&
&H00C0C0C0&
OLEDropMode
'Manual
Begin VB.Shape SB
&H002A1C05&
'Opaque
BorderColor
&H002A1C05&
&H002A1C05&
Attribute VB_Name = &frmma&
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''由于行数太多，作者的代码已经崩溃两次了，还好我有做备份，只不过有时候白忙活了
'V1.23
'删除多边形边框,方方正正典雅美观
Option Explicit
Dim sBlendFunction As BLENDFUNCTION '图像渐入渐出の变量
Dim Wnd As Long
'定义显示/隐藏桌面图标的变量
Dim SX As Integer
'定义这个变量是取得鼠标坐标
Dim SY As Integer
'定义这个变量是取得鼠标坐标
Dim POS As POINTAPI '定义这个变量是取得鼠标坐标
Dim hTaskBar As Long '定义这个变量是获得任务栏高度
Dim strPath As String
Dim CLOUD As Boolean
Dim ISONME As Boolean
Private PL_NAME As String, HD_NAME As String
Dim PLAYDSB As Long, R_P_THU As Integer, IS_PICSHOW As Boolean
Dim SET_M As Boolean, MINI_M As Boolean, END_M As Boolean, BACK_M As Boolean
Dim ISMOVE As Boolean
Dim SELFW As Boolean
Dim MB As Long
Dim dX, dY
Dim DL_MOVE As Boolean, CHECK_MOVE As Boolean, SET_MOVE As Boolean, CAM_M As Boolean, NOT_M As Boolean
Dim CHANGEITEM As Integer
Dim Ms As String, Ks As Integer, rEADY As Integer, Connect As Integer, THIS_DAY As String
Dim MFILEPATH As String, FILETIME As String, FILESINGER As String, SINGERLOGO As String, SINGERLOGOB As String
Dim clips As Collection, iCount As Integer
Private m_xPos As Long '上次的鼠标轨迹水平坐标
Private m_yPos As Long '上次的鼠标轨迹垂直坐标
Private m_GeCol As Collection
'记录轨迹点的集合
Dim USEBACK As String
Private gX As Long
Dim TESTMODE As Boolean
Dim MouseDown As Boolean
Dim UNCOUNT As Boolean
Dim MINSOUND As Boolean
Private mmp As clsNet
Private myIp As String
Private netIp As String
Public AUTOPLAYPIC As Boolean
Const URLTMP = &http://www.baidu.com/baidu?word=&
Dim sk As Long, HQ As Long, Counter As Long '为CPU使用率做坐标
Dim once As Boolean '音乐播放器是否启动后第一次使用
Dim pA, FN, Root As String '添加本地驱动器
Const pwdChar = &·& '类化密码框的文字
Dim Pwd As String, PwdLen As Long '密码长度与密码值
Dim SelPos As Long, Insert As Integer
Dim SCREENSAVER As Integer '定义是否运行屏保
Dim TimerStr(0 To 5) As Integer '显示播放事件的变量
Dim sURL As String '定义自动播放曲目的地址
Dim sIndex As Integer '
Dim MovY As Integer '用于进度条
Dim songinx As Integer '判断是否连接超时
Dim imagepixels(2, ) As Integer
Dim Px As Integer
Dim py As Integer
Dim nx As Integer
Dim ny As Integer
Dim A As Integer
Dim imgPlayer As String '下面几行是定义图片--▕
Dim imgPic As String
Dim imgMaster As String
Dim imgBro As String
Dim imgSet As String
Dim imgManager As String
Dim imgFile As String '到这里 ---------------▕
Const HWND_TOPMOST = -1 '置顶
Private Type TGUID
Data1 As Long
data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
Private Declare Function GetObject Lib &gdi32& Alias &GetObjectA& (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
Private Declare Function ChooseColor Lib &comdlg32.dll& Alias &ChooseColorA& (pChoosecolor As udtCHOOSECOLOR) As Long
Private Type udtCHOOSECOLOR
lStructSize As Long
hwndOwner As Long
hInstance As Long
rgbResult As Long
lpCustColors As String
Flags As Long
lCustData As Long
lpfnHook As Long
lpTemplateName As String
Private Const CC_FULLOPEN = &H2
Private Const WM_SETHOTKEY = &H32 '定义快捷键
Private Const HOTKEYF_SHIFT = &H1 '定义快捷键shift
Private Const HOTKEYF_CONTROL = &H2
'定义快捷键ctrl
Private Const HOTKEYF_ALT = &H4
'定义快捷键alt
Private Declare Function GetCursorPos Lib &user32& (lpPoint As POINTAPI) As Long
Private Declare Function PdhVbOpenQuery Lib &PDH.DLL& (ByRef QueryHandle As Long) As Long
Private Declare Function PdhVbAddCounter Lib &PDH.DLL& (ByVal QueryHandle As Long, ByVal CounterPath As String, ByRef CounterHandle As Long) As Long
Private Declare Function PdhCollectQueryData Lib &PDH.DLL& (ByVal QueryHandle As Long) As Long
Private Declare Function PdhVbGetDoubleCounterValue Lib &PDH.DLL& (ByVal CounterHandle As Long, ByRef CounterStatus As Long) As Double
Private Declare Function RegQueryValueEx Lib &advapi32.dll& Alias &RegQueryValueExA& (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegOpenKey Lib &advapi32.dll& Alias &RegOpenKeyA& (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib &advapi32.dll& (ByVal hKey As Long) As Long
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 OleLoadPicturePath Lib &oleaut32.dll& (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal dwReserved As Long, ByVal clrReserved As OLE_COLOR, ByRef riid As TGUID, ByRef ppvRet As IPicture) As Long
Private Declare Function SHBrowseForFolder Lib &shell32.dll& Alias &SHBrowseForFolderA& (lpBrowseInfo As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib &shell32.dll& Alias &SHGetPathFromIDListA& (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function CopyFile Lib &kernel32& Alias &CopyFileA& (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Public LOADTIME As Long
Private memory As MEMORYSTATUS
Private WithEvents PSubClass As cSubclass '移动窗体无拖影的事件
Attribute PSubClass.VB_VarHelpID = -1
Public Function LoadNetPicture(ByVal ImgSrc As String) As Picture
Dim riid As TGUID
riid.Data1 = &H7BF80980: riid.data2 = &HBF32: riid.Data3 = &H101A
riid.Data4(0) = &H8B: riid.Data4(1) = &HBB: riid.Data4(2) = &H0
riid.Data4(3) = &HAA: riid.Data4(4) = &H0:
riid.Data4(5) = &H30
riid.Data4(6) = &HC:
riid.Data4(7) = &HAB
OleLoadPicturePath StrPtr(ImgSrc), 0&, 0&, 0&, riid, LoadNetPicture
End Function
Public Function NTDomainUserName() As String
On Error Resume Next
Dim strBuffer As String * 255
Dim lngBufferLength As Long
Dim lngRet As Long
Dim strTemp As String
lngBufferLength = 255
lngRet = GetUserName(strBuffer, lngBufferLength)
strTemp = UCase(Trim$(strBuffer))
NTDomainUserName = Left$(strTemp, Len(strTemp) - 1)
End Function
Private Sub BACKME_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If BACK_M = False Then
BACK_M = True
Call DRAWFACE
Call PaintPng(App.Path & &\SKIN\B_H.PNG&, IFRAME.hdc, BACKME.Left, BACKME.Top)
Private Sub BACKME_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
BACKME.Visible = False
PP.Visible = False
Call DRAWFACE
If pl.Left = 0 Then
If AUTOPLAYPIC = True Then Timers.Enabled = True
PF(6).Visible = True
pl.AutoRedraw = False
Private Sub C1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then LogIn
Private Sub c2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If C2.Caption = &取消& Then running = False
If PICLO.Visible = True Then CancelLogin
Private Sub CBFIND_Click()
On Error Resume Next
If Len(CBFIND.Text) &= 0 Then Exit Sub
Call LOADSERCH
ListSer.SetFocus
Private Sub CBFIND_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call SerchFileNow
Private Sub CBFIND_LostFocus()
If Left(CBFIND.Text, 2) && &*.& Then CBFIND.Text = &*.& & CBFIND.Text
Private Sub Check1_Click()
If Check1.Value = 0 Then
lRet = SetInitEntry(&IM&, &UseNewUser&, Check1.Value)
lRet = SetInitEntry(&IM&, &UseNewUser&, Check1.Value)
Private Sub Check1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Private Sub Check2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Private Sub Check3_Click()
If Check3.Value = 1 Then
Check2.Value = 1
lRet = SetInitEntry(&IM&, &AutoLogin&, 1)
Private Sub Check3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Private Sub Check4_Click()
lRet = SetInitEntry(&SYSTEM&, &REPLACE_BK&, Check4.Value)
Call SUBDRAW
Private Sub Check5_Click()
Call DRAWFACE
lRet = SetInitEntry(&SYSTEM&, &CHANGECOLOR&, Check5.Value)
Private Sub CMDFIND_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If CMDFIND.Picture && Frmm.PICNOR.Picture Then CMDFIND.Picture = Frmm.PICNOR.Picture
Private Sub CMDFIND_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If CMDFIND.Picture && Frmm.PICLIGHT.Picture Then CMDFIND.Picture = Frmm.PICLIGHT.Picture
Sub SERCHNET()
On Error Resume Next
Dim i As Integer
Dim S As String
Dim F As Integer, T As Integer
If (IsNumeric(txtFrom.Text)) Then Let F = txtFrom.Text
If (IsNumeric(txtTo.Text)) Then Let T = txtTo.Text
If ((F & 0) Or (T & 0)) Then Exit Sub
If (T & F) Then Exit Sub
For i = F To T
CMDFIND.Enabled = False
lstRes.Enabled = False
IMJ.Visible = False
PR.Visible = True
PR.ZOrder 0
PR.Width = 1
PR.Width = (PICTOOL.ScaleWidth / (T / i))
'Debug.Print &正在分解主机名...& & S & & & & Int(100 / (T / i)) & &%&
Let S = netIp & i
If (S && myIp) Then
If (mmp.Ping(S)) Then Call Add_Mach(mmp.ResolveHostname(S), S)
Call SHOWWRONG(&局域网扫描完毕.共发现& & lstRes.ListCount & &台主机&, 1)
CMDFIND.Enabled = True
IMJ.Visible = True
lstRes.Enabled = True
PR.Visible = False
Private Sub CMDFIND_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If CMDFIND.Picture && Frmm.PICNOR.Picture Then CMDFIND.Picture = Frmm.PICNOR.Picture
Call SERCHNET
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then COMMAND1.Picture = Frmm.PICNOR.Picture
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If COMMAND1.Picture && Frmm.PICLIGHT.Picture Then COMMAND1.Picture = Frmm.PICLIGHT.Picture
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If COMMAND1.Picture && Frmm.PICNOR.Picture Then COMMAND1.Picture = Frmm.PICNOR.Picture
If Button = 1 Then LogIn
Private Sub COMMAND2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then COMMAND2.Picture = Frmm.PICNOR.Picture
Private Sub COMMAND2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If COMMAND2.Picture && Frmm.PICLIGHT.Picture Then COMMAND2.Picture = Frmm.PICLIGHT.Picture
Private Sub COMMAND2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If C2.Caption = &取消& Then running = False
If PICLO.Visible = True Then CancelLogin
Sub ShowFriend()
PICSER.Visible = False
Timers.Enabled = False
Timefriend.Enabled = True
PF(6).Enabled = False
IMPIC.Picture = Frmm.Pic(93).Picture
IMMAIN.Picture = Frmm.Pic(92).Picture
IMCHAT.Picture = Frmm.Pic(96).Picture
Call DRAWUI
Sub ShowIM()
PICSER.Visible = False
Call SUBDRAWIM
TMRZ.Enabled = True
Timers.Enabled = False
PF(6).Enabled = False
IMPIC.Picture = Frmm.Pic(93).Picture
IMMAIN.Picture = Frmm.Pic(90).Picture
IMCHAT.Picture = Frmm.Pic(98).Picture
Sub ShowPic()
PICSER.Visible = False
PF(3).ScaleMode = 1
Timetool.Enabled = True
PF(6).Enabled = True
pl.AutoRedraw = False
IMPIC.Picture = Frmm.Pic(95).Picture
IMMAIN.Picture = Frmm.Pic(90).Picture
IMCHAT.Picture = Frmm.Pic(96).Picture
Sub LoadParam()
On Error Resume Next '加载用户头像
LOGO = GetSetting(&iCee&, &Main&, &logo&, App.Path + &\Skin\DefaultHead.BMP&)
If Len(Trim(LOGO)) & 0 And Dir(LOGO) && && Then
Picture1.Picture = LoadPicture(LOGO)
Picture1.Picture = LoadPicture(App.Path + &\Skin\DefaultHead.BMP&)
Picture2.Height = Picture1.Height
Picture2.Width = Picture1.Width
Call DRAWFACE
If PP.Visible = True Then Call PaintPng(App.Path & &\SKIN\B_N.PNG&, IFRAME.hdc, BACKME.Left, BACKME.Top)
PDB.PaintPicture USELOGO.Picture, 269, 74, 60, 60
Sub setDefaultConfig() '获得电脑名称
Dim computerName As String, strLength As Long
strLength = 255
computerName = String(strLength, Chr(0))
GetComputerName computerName, strLength
LBUSE.Caption = computerName
Sub READPASS()
On Error Resume Next
Dim Temp As String
Temp = GetInitEntry(&IM&, &LastPassWord&, &&)
If TXTPOUP.Text && Temp Then
Call SHOWWRONG(&密码错误,请重新输入&, 0)
TXTPOUP.Text = &&
PF(12).Visible = False
Call LOCKSAFE
TXTPOUP.Text = &&
Sub 导出列表()
On Error Resume Next
Dim sfile As String
sfile = ShowSave(Me.hWnd, &播放列表(*.M3U)& & Chr$(0) & &*.M3U&, &导出播放列表&)
Open sfile For Output As #1
For i = 0 To PLIST.ListCount - 1
Print #1, PLIST.URL(i)
Sub 打开列表()
Dim sfile As String
sfile = ShowOpen(Me.hWnd, &播放列表(*.M3U)& & Chr$(0) & &*.M3U&, &导入播放列表&)
If Dir$(sfile) && vbNullString Then
Me.Playlist (sfile)
Private Sub CSER_CLICK()
Call SerchFileNow
Private Sub E2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
If Wm.playState = wmppsPlaying Then
Wm.Controls.currentPosition = X * Wm.currentMedia.duration / (E2(2).Width * 15)
Call UpNow
End Select
Private Sub E2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Private Sub EI_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call UpNow
Sub SerchFileNow()
If CBFIND.Text = &*.& Or Trim(CBFIND.Text) = && Then Call SHOWWRONG(&请输入要查找文件的后缀& & vbCrLf & &
①不需要手动输入*.前缀,程序自动补全& & vbCrLf & &
②暂时不支持多后缀搜索& & vbCrLf & &
③搜索完成后双击即可定位文件&, 2): Exit Sub
If Left(CBFIND.Text, 2) && &*.& Then CBFIND.Text = &*.& & CBFIND.Text
PDB.PaintPicture Frmm.IMBK.Picture, 0, 0, PDB.ScaleWidth, PDB.ScaleHeight
Call PaintPng(App.Path & &\SKIN\SERCHING.png&, PDB.hdc, 0, 0) '搜索加载框
PDB.PaintPicture PLOGO.image, 269, 74, 60, 60
COMMAND2.Move 192, 256
提示信息.Move 152, 100
PDB.Visible = True
PDB.ZOrder 0
COMMAND2.Visible = True
C2.Caption = &搜索&
If running = False Then
提示信息.Caption = &正在初始化&
K(5).Visible = False
TTP.Caption = &&
Call SearchFile(ListSer.hWnd, LCase(CBFIND.Text))
Sub SHOWU()
On Error Resume Next
Dim LnBlendPtr As Long
pl.AutoRedraw = False
For i = 0 To 50
sBlendFunction.SourceConstantAlpha = i * 5
CopyMemory LnBlendPtr, sBlendFunction, 4
AlphaBlend pl.hdc, 0, 0, pl.ScaleWidth, pl.ScaleHeight, Frmm.MYPIC(MB).hdc, 0, 0, Frmm.MYPIC(MB).Width, Frmm.MYPIC(MB).Height, LnBlendPtr
Call PaintPng(App.Path + &\Skin\UI_TIT.png&, pl.hdc, 0, 0) '重绘个性相册标题
Call PaintPng(App.Path + &\SKIN\PO_T.PNG&, pl.hdc, IMPIC.Left + 4, 8)
MB = MB + 1
If MB = 8 Then MB = 0
Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = (GetAsyncKeyState(vKeyCode) & 0)
End Function
Private Sub EI_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call PicUse_OLEDragDrop(Data, Effect, Button, Shift, X, Y)
Private Sub Form_Initialize()
DL_MOVE = False
CHECK_MOVE = False
SET_MOVE = False
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Call IFRAME_KeyDown(KeyCode, 0)
Private Sub IBK_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
SB(5).Move IBK(Index).Left, IBK(Index).Top
lRet = SetInitEntry(&SYSTEM&, &REPLACE&, Index)
Private Sub IBK_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
lRet = SetInitEntry(&SYSTEM&, &REPLACE&, Index)
R_P_THU = Index
Call DRAWFACE
Call SUBDRAW
Private Sub ICC_CLICK(Index As Integer)
On Error Resume Next
Dim Tfile As String
Tfile = App.Path & &\MEDIA\THUMBS.BMP&
Select Case Index
Call 保存一下(ImgPreview)
Call SavePicture(ImgPreview.Picture, Tfile)
FRMBOARD.OPENFILE (Tfile)
FRMBOARD.Show
Kill Tfile
Call PRINTPIC
DefCOM = 3
Call SavePicture(ImgPreview.Picture, Tfile)
Call SHAREIT(Tfile)
StopMonitoring Me.hWnd '先停止，否则错误
StartMonitoring Me.hWnd '再开始监视
End Select
Private Sub ICL_CLICK(Index As Integer)
On Error Resume Next
Select Case Index
Call READPASS
If CLOUD = True Then
Call LOADCLOUD
PP.Visible = False
Call ShowIM
If Status.RasConnState && &H2000 Then Call SHOWWRONG(&没有检查到网络连接&, 2): Exit Sub
Frmadd.Text1.Text = &http://xiazai.xiazaiba.com/Soft/I/IE8-Setup-Ylmf.exe&
Call Frmadd.DOWNLOADIT
PF(2).Visible = False
PF(2).Visible = False
lRet = SetInitEntry(&SYSTEM&, &IETIP&, &1&)
If Wm.URL = && Then Exit Sub
Call FRMMIN.SeeIt(Wm.URL)
If Me.Left & FRMMIN.Width Then
FRMMIN.Move Me.Left - FRMMIN.Width, Me.Top
FRMMIN.Move Me.Left + Me.Width, Me.Top
FRMMIN.Show
End Select
Private Sub ICN_Click(Index As Integer)
Select Case Index
If PF(9).Visible = False Then
PF(9).Visible = True
PF(9).Visible = False
If txtEntry.Text = && Then Exit Sub
Call CalculateEntry
txtEntry.Text = &&
End Select
Private Sub ICT_CLICK()
Call OPENFILE(App.Path & &\COFING\CLIPTEXT.txt&)
Private Sub ICZ_CLICK(Index As Integer)
On Error Resume Next
Select Case Index
ICZ(2).SETTXT ICZ(2).MYID + 100
ICZ(2).SETTXT ICZ(2).MYID - 100
tmrZoom.Enabled = False
PicZoom.Visible = False
Call LOCKSAFE
PF(3).Move 0, 185, 340, 370
pl.Move 0, 0, PF(3).ScaleWidth, PF(3).ScaleHeight
ICZ(4).Visible = False
PICTOOL.ZOrder 0
IMJ.ZOrder 0
IS_PICSHOW = False
Frmm.TMEA.Enabled = True
PDB.Left = PF(3).Left + PDB.Width
End Select
mfScale = ICZ(2).MYID / 100!
lRet = SetInitEntry(&SCREEN_MAKER&, &ZOOMPER&, ICZ(2).MYID)
Private Sub iFrame_DblClick()
If UNME.Enabled = True Then Call NoNoNo
Private Sub IFRAME_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape And PICCLIP.Visible = False And PicZoom.Visible = False Then Call NoNoNo
Sub GetDriver()
If GetUdisk() && && Then
Call KillAuto(GetUdisk)
IMGUSB.ToolTipText = &发现可移动设备&
HASUSB = True
If PSINGER.Visible = True Then PSEND.Visible = True
If PSEND.Visible = True Then
PMDL.Left = PSEND.Left + PSEND.Width + 5
PMDL.Left = PSEND.Left
IMGUSB.Picture = Frmm.Pic(38).Picture
If Sound = 1 Then sndPlaySound App.Path + &\Sound\popo.wav&, 1
Sub iCan()
On Error Resume Next
frmma.Show
Call MoveWindow(frmmabk.hWnd, Me.Left / Screen.TwipsPerPixelX - 20, Me.Top / Screen.TwipsPerPixelY - 10, 380, 650, True)
If ALWAYSONTOP = True Then RESL = SetWindowPos(frmmabk.hWnd, HWND_TOPMOST, 0, 0, 0, 0, Flags) Else RESL = SetWindowPos(frmmabk.hWnd, 1, 0, 0, 0, 0, Flags)
If ALWAYSONTOP = True Then RESL = SetWindowPos(Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, Flags) Else RESL = SetWindowPos(Me.hWnd, 1, 0, 0, 0, 0, Flags)
If PICAD.Visible = False Then Frmm.TimeHon.Enabled = True
If PP.Visible = False And pl.Left = 0 And AUTOPLAYPIC = True Then Timers.Enabled = True
If PICD.Visible = True Or PP.Visible = True Then Timers.Enabled = False
Unload FRMTASK
frmmabk.Visible = True
lRet = SetInitEntry(&MsgBOX&, &LEFT&, frmma.Left - 100)
lRet = SetInitEntry(&MsgBOX&, &TOP&, frmma.Top + (frmma.Height - FrmWrong.Height) / 2)
Private Sub IFRAME_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call UpNow
Private Sub IFRAME_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MOVENOW
Sub SHOWBK() '显示阴影
On Error Resume Next
frmmabk.Move Me.Left - 20, Me.Top - 10
frmmabk.Visible = True
Me.ZOrder 0
Sub HIDEBK()
frmmabk.Hide
Sub SHOWFIND()
ISERCH.Picture = Frmm.Pic(66).Picture
ILOCAL.Picture = Frmm.Pic(36).Picture
IPLIST.Picture = Frmm.Pic(4).Picture
PICFIND.ZOrder 0
PICFIND.Left = 0
PFILE.Left = PICFIND.Left - PFILE.Width
Pmusic.Left = PFILE.Left - Pmusic.Left
Sub ShowLocal()
ISERCH.Picture = Frmm.Pic(64).Picture
ILOCAL.Picture = Frmm.Pic(41).Picture
IPLIST.Picture = Frmm.Pic(4).Picture
PFILE.Left = 0
PFILE.ZOrder 0
Pmusic.Left = PFILE.Left - Pmusic.Width
PICFIND.Left = PFILE.Left + PICFIND.Width
Sub ShowList()
ISERCH.Picture = Frmm.Pic(64).Picture
ILOCAL.Picture = Frmm.Pic(36).Picture
IPLIST.Picture = Frmm.Pic(63).Picture
Pmusic.Left = 0
Pmusic.ZOrder 0
PFILE.Left = Pmusic.Left + PFILE.Width
PICFIND.Left = PFILE.Left + PICFIND.Width
Private Sub iFrame_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Tit_OLEDragDrop(Data, Effect, Button, Shift, X, Y)
Private Sub ILOCAL_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ILOCAL.Picture = Frmm.Pic(42).Picture And Button = 1 Then ILOCAL.Picture = Frmm.Pic(41).Picture
Private Sub ILOCAL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ILOCAL.Picture = Frmm.Pic(36).Picture Then ILOCAL.Picture = Frmm.Pic(42).Picture
Private Sub ILOCAL_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If ILOCAL.Picture = Frmm.Pic(41).Picture Then Call ShowLocal
Private Sub ILOCAL_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call PicUse_OLEDragDrop(Data, Effect, Button, Shift, X, Y)
Private Sub IMAD_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMAD.Picture = Frmm.Pic(40).Picture And Button = 1 And PICSER.Visible = False Then IMAD.Picture = Frmm.Pic(119).Picture
Private Sub IMAD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMAD.Picture = Frmm.Pic(35).Picture And PICSER.Visible = False Then IMAD.Picture = Frmm.Pic(40).Picture
Private Sub IMAD_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
PICAD.ZOrder 0
PICAD.Visible = True
Frmm.TMA.Enabled = True
Private Sub IMBAIDU_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMBAIDU.Picture = Frmm.X2.Picture Then IMBAIDU.Picture = Frmm.X3.Picture
Private Sub IMBAIDU_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMBAIDU.Picture = Frmm.X1.Picture Then IMBAIDU.Picture = Frmm.X2.Picture
Private Sub IMBAIDU_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMBAIDU.Picture = Frmm.X3.Picture Then IMBAIDU.Picture = Frmm.X1.Picture: PICSER.Visible = False
Private Sub IMCAD_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMCAD.Picture && Frmm.Pic(86).Picture Then IMCAD.Picture = Frmm.Pic(86).Picture
Private Sub IMCAD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCAD.Picture && Frmm.Pic(87).Picture Then IMCAD.Picture = Frmm.Pic(87).Picture
Private Sub IMCAD_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Me.PopupMenu Frmm.播放控制, , 0, Me.ScaleHeight - (10.5 * Mbar.Height)
Private Sub IMCDEL_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMCDEL.Picture && Frmm.Pic(28).Picture Then IMCDEL.Picture = Frmm.Pic(28).Picture
Private Sub IMCDEL_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCDEL.Picture && Frmm.Pic(29).Picture Then IMCDEL.Picture = Frmm.Pic(29).Picture
Private Sub IMCDEL_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Call Lmenu(3)
Private Sub IMCFIND_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMCFIND.Picture && Frmm.Pic(171).Picture Then IMCFIND.Picture = Frmm.Pic(171).Picture
Private Sub IMCFIND_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCFIND.Picture && Frmm.Pic(172).Picture Then IMCFIND.Picture = Frmm.Pic(172).Picture
Private Sub IMCFIND_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If Pser.Visible = True Then
Pser.Visible = False
PLIST.Move 0, 0, Pmusic.ScaleWidth, Pmusic.ScaleHeight - Mbar.Height
Pser.Visible = True
PLIST.Move 0, 0, Pmusic.ScaleWidth, Pmusic.ScaleHeight - Mbar.Height - Pser.Height
Private Sub IMCHAT_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCHAT.Picture = Frmm.Pic(97).Picture And Button = 1 Then IMCHAT.Picture = Frmm.Pic(98).Picture
Private Sub IMCHAT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMAD.Picture && Frmm.Pic(35).Picture Then IMAD.Picture = Frmm.Pic(35).Picture
IMAD.Visible = False
If IMCHAT.Picture = Frmm.Pic(96).Picture Then IMCHAT.Picture = Frmm.Pic(97).Picture
Private Sub IMCHAT_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCHAT.Picture = Frmm.Pic(98).Picture Then Call ShowIM
Private Sub IMCHK_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If CHECK_MOVE = False Then
CHECK_MOVE = True
picABOUT.Cls
picABOUT.PaintPicture Frmm.IMBK.Picture, 0, 0, picABOUT.ScaleWidth, picABOUT.ScaleHeight
Call PaintPng(App.Path & &\SKIN\CHECK_H.PNG&, picABOUT.hdc, 0, 0)
Call PaintPng(App.Path & &\SKIN\ABOUTME.png&, picABOUT.hdc, 0, 0) '关于界面
Call PaintPng(App.Path & &\SKIN\STTIT.png&, picABOUT.hdc, 0, -6) '关于界面
picABOUT.DrawWidth = 12
picABOUT.Line (0, 0)-(picABOUT.ScaleWidth, 1), IMJ.BackColor, B
Private Sub IMCHK_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Call Frmm.CHECKNET
If Status.RasConnState && &H2000 Then Call SHOWWRONG(&没有检查到网络连接&, 2): Exit Sub
Call SHOWWRONG(&当前版本已是最新版本&, 1)
Private Sub IMCLEAR_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMCLEAR.Picture && Frmm.Pic(162).Picture Then IMCLEAR.Picture = Frmm.Pic(162).Picture
Private Sub IMCLEAR_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCLEAR.Picture && Frmm.Pic(194).Picture Then IMCLEAR.Picture = Frmm.Pic(194).Picture
Private Sub IMCLEAR_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
On Error Resume Next
fso.DeleteFile SINGERLOGO
Call GETSINGER
Private Sub IMCP_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCP.Picture = Frmm.Pic(80).Picture And Button = 1 Then IMCP.Picture = Frmm.Pic(79).Picture
Private Sub IMCP_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCP.Picture = Frmm.Pic(79).Picture Then IMCP.Picture = Frmm.Pic(80).Picture
Private Sub IMCP_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
SavePicture PICCPU.image, App.Path + &\COFING\CPU\& & Day(Date) & Hour(TimE) & Minute(TimE) & Second(TimE) & &.BMP&
Call SHOWWRONG(&已将记录导出至 & & App.Path + &\COFING\CPU\& & Day(Date) & Hour(TimE) & Minute(TimE) & Second(TimE) & &.BMP&, 1)
Private Sub IMCZORD_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMCZORD.Picture && Frmm.Pic(88).Picture Then IMCZORD.Picture = Frmm.Pic(88).Picture
Private Sub IMCZORD_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMCZORD.Picture && Frmm.Pic(89).Picture Then IMCZORD.Picture = Frmm.Pic(89).Picture
Private Sub IMCZORD_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Me.PopupMenu Frmm.顺序, , 280, Me.ScaleHeight - (7.6 * Mbar.Height)
Private Sub IMDO_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If DL_MOVE = False Then
DL_MOVE = True
Call DRAWUI
Call PaintPng(App.Path & &\SKIN\DL_H.PNG&, PICUSE.hdc, PICUSE.ScaleWidth - 96, PICUSE.ScaleHeight - 98)
Private Sub IMDO_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Call SHOWDL
Private Sub IMEND_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMEND.Picture = Frmm.X2.Picture Then IMEND.Picture = Frmm.X3.Picture
Private Sub IMEND_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMEND.Picture = Frmm.X1.Picture Then IMEND.Picture = Frmm.X2.Picture
Private Sub IMEND_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMEND.Picture = Frmm.X3.Picture Then IMEND.Picture = Frmm.X1.Picture
PF(2).Visible = False
Private Sub IMG_NT_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If PICNET.Visible = True Then Exit Sub
If SET_MOVE = False Then
SET_MOVE = True
PICLO.PaintPicture Frmm.IMBK.Picture, 0, 0, PICLO.ScaleWidth, PICLO.ScaleHeight
Call PaintPng(App.Path + &\Skin\login.png&, PICLO.hdc, 0, 0) '登陆界面
Call PaintPng(App.Path & &\SKIN\SET_H.PNG&, PICLO.hdc, 0, 0)
Call PaintPng(App.Path + &\Skin\UI_TIT.png&, PICLO.hdc, 0, 0) '重绘登陆框标题
Call PaintPng(App.Path + &\SKIN\PO_T.PNG&, PICLO.hdc, IMCHAT.Left + 4, 8)
If IMSER.Visible = True Then IMSER.Visible = False
If IMSER.Picture && Frmm.Pic(81).Picture Then IMSER.Picture = Frmm.Pic(81).Picture
If IMMAIN.Picture && Frmm.Pic(90).Picture Then IMMAIN.Picture = Frmm.Pic(90).Picture
Private Sub IMG_NT_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If PICNET.Visible = True Then Exit Sub
PICLO.BackColor = IMJ.BackColor
IMG_NT.Visible = False
PICNET.Visible = True
IMJ.Visible = True
LBITEM(16).Caption = &扫描局域网&
Call DRAWNET
Call RUNSAFE
PICLO.BackColor = &H4E4E4E
Private Sub IMGAME_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'If Button && 1 Then Exit Sub
'If IMGAME.Picture && Frmm.Pic(1).Picture Then IMGAME.Picture = Frmm.Pic(1).Picture
If Button && 1 Then Exit Sub
If PP.Visible = True Then Exit Sub
Call SHOWGAME
Private Sub IMGAME_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMAD.Picture && Frmm.Pic(35).Picture Then IMAD.Picture = Frmm.Pic(35).Picture: IMAD.Visible = False
If IMGAME.Picture && Frmm.Pic(0).Picture Then IMGAME.Picture = Frmm.Pic(0).Picture
Private Sub IMGEM_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMONEY.Picture && Frmm.Pic(24).Picture Then IMONEY.Picture = Frmm.Pic(24).Picture
If IMSKIN.Picture && Frmm.Pic(12).Picture Then IMSKIN.Picture = Frmm.Pic(12).Picture
If IMGEM.Picture = Frmm.Pic(68).Picture Then IMGEM.Picture = Frmm.Pic(17).Picture
Private Sub IMGEM_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMGEM.Picture = Frmm.Pic(17).Picture Then IMGEM.Picture = Frmm.Pic(68).Picture
If Button && 1 Then Exit Sub
If frmma.Left & FRMHIS.Width Then
FRMHIS.Move frmma.Left - FRMHIS.Width, frmma.Top
FRMHIS.Move frmma.Left + frmma.Width, frmma.Top
FRMHIS.Show
GETMSGCOUNT = 0
LCO.Caption = 0
Private Sub IMGUSB_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call Tit_OLEDragDrop(Data, Effect, Button, Shift, X, Y)
Private Sub IMMAIN_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMMAIN.Picture = Frmm.Pic(91).Picture And Button = 1 Then IMMAIN.Picture = Frmm.Pic(92).Picture
Private Sub IMMAIN_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMMAIN.Picture = Frmm.Pic(90).Picture Then IMMAIN.Picture = Frmm.Pic(91).Picture
If PICSER.Visible = False Then
If IMSER.Visible = True Then IMSER.Visible = False
If IMSER.Picture && Frmm.Pic(81).Picture Then IMSER.Picture = Frmm.Pic(81).Picture
If IMSER.Visible = False Then IMSER.Visible = True
If IMSER.Picture && Frmm.Pic(83).Picture Then IMSER.Picture = Frmm.Pic(83).Picture
Private Sub IMMAIN_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMMAIN.Picture = Frmm.Pic(92).Picture Then Call ShowFriend
Private Sub IMNEW_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMNEW.Picture && Frmm.Pic(30).Picture Then IMNEW.Picture = Frmm.Pic(30).Picture
Private Sub IMNEW_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMNEW.Picture && Frmm.Pic(31).Picture Then IMNEW.Picture = Frmm.Pic(31).Picture
Call Frmm.CHECKNET
If Status.RasConnState && &H2000 Then Exit Sub '没联网不许看
If Left(IEver, 1) &= 7 Then FRMNEWS.Show '必须是IE7以上版本
Private Sub IMONEY_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMGEM.Picture && Frmm.Pic(68).Picture Then IMGEM.Picture = Frmm.Pic(68).Picture
If IMSKIN.Picture && Frmm.Pic(12).Picture Then IMSKIN.Picture = Frmm.Pic(12).Picture
If IMONEY.Picture && Frmm.Pic(26).Picture Then IMONEY.Picture = Frmm.Pic(26).Picture
Private Sub IMONEY_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMONEY.Picture && Frmm.Pic(24).Picture Then IMONEY.Picture = Frmm.Pic(24).Picture
If Winsock1.State && 7 Then Call SHOWWRONG(&请先登录服务器&, 2): Exit Sub
If Me.Left & FRMBAG.Width Then
FRMBAG.Move Me.Left - FRMBAG.Width, Me.Top
FRMBAG.Move Me.Left + Me.Width, Me.Top
FRMBAG.Show
Private Sub IMOPEN_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMOPEN.Picture = Frmm.Pic(71).Picture And Button = 1 Then IMOPEN.Picture = Frmm.Pic(72).Picture
Private Sub IMOPEN_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMOPEN.Picture = Frmm.Pic(67).Picture Then IMOPEN.Picture = Frmm.Pic(71).Picture
If MINSOUND = False Then
If IMVOL.Picture && Frmm.Pic(73).Picture Then IMVOL.Picture = Frmm.Pic(73).Picture
If IMVOL.Picture && Frmm.Pic(76).Picture Then IMVOL.Picture = Frmm.Pic(76).Picture
If PV.Visible = True Then PV.Visible = False
If IPRE.Picture && Frmm.Pic(99).Picture Then IPRE.Picture = Frmm.Pic(99).Picture
If INEXT.Picture && Frmm.Pic(102).Picture Then INEXT.Picture = Frmm.Pic(102).Picture
Private Sub IMOPEN_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMOPEN.Picture = Frmm.Pic(72).Picture Then Call Lmenu(0): IMOPEN.Picture = Frmm.Pic(67).Picture
Private Sub IMPIC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMPIC.Picture = Frmm.Pic(94).Picture And Button = 1 Then IMPIC.Picture = Frmm.Pic(95).Picture
Private Sub IMPIC_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMPIC.Picture = Frmm.Pic(93).Picture Then IMPIC.Picture = Frmm.Pic(94).Picture
Private Sub IMPIC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMPIC.Picture = Frmm.Pic(95).Picture Then Call ShowPic
Private Sub IMR_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMR.Picture = Frmm.Pic(131).Picture Then
FRMHIS.TXTSYS.Text = FRMHIS.TXTSYS.Text & vbCrLf & Now & &&开启了相册播放&
AUTOPLAYPIC = True
IMR.Picture = Frmm.Pic(130).Picture
IMR.Picture = Frmm.Pic(131).Picture
FRMHIS.TXTSYS.Text = FRMHIS.TXTSYS.Text & vbCrLf & Now & &&关闭了相册播放&
AUTOPLAYPIC = False
lRet = SetInitEntry(&SYSTEM&, &AUTOPLAYPIC&, AUTOPLAYPIC)
Private Sub IMS_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMS.Picture && Frmm.Pic(126).Picture Then IMS.Picture = Frmm.Pic(126).Picture
Private Sub IMS_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMS.Picture && Frmm.Pic(127).Picture Then IMS.Picture = Frmm.Pic(127).Picture
Private Sub IMS_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Call ADDFRIEND
Private Sub IMSER_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMSER.Picture = Frmm.Pic(82).Picture And Button = 1 And PICSER.Visible = False Then IMSER.Picture = Frmm.Pic(83).Picture
If PICSER.Visible = True Then Call UpNow
Private Sub IMSER_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMSER.Picture = Frmm.Pic(81).Picture And PICSER.Visible = False Then IMSER.Picture = Frmm.Pic(82).Picture
Private Sub IMSER_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IMSER.Picture = Frmm.Pic(83).Picture And PICSER.Visible = False Then
If PICSER.Visible = False Then PICSER.Visible = True: TXTBAIDU.Text = &&请输入关键词&&
Private Sub IMSERG_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
If IMSERG.Picture && Frmm.Pic(147).Picture Then IMSERG.Picture = Frmm.Pic(147).Picture
Private Sub IMSERG_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If LBITEM(26).ForeColor && &HC0C0C0 Then LBITEM(26).ForeColor = &HC0C0C0
If IMSERG.Picture && Frmm.Pic(146).Picture Then IMSERG.Picture = Frmm.Pic(146).Picture
Private Sub IMSERG_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button && 1 Then Exit Sub
Call Frmm.CHECKNET
If Status.RasConnState && &H2000 Then Exit Sub
If Trim(FILESINGER) && && And Trim(SONGNAME) && && Then
FRMFM.Text1.Text = FILESINGER
FRMFM.Text1.Text = SONGNAME
FRMFM.Show
Call FRMFM.SERCHSINGER
Private Sub IMSERG_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Call PSINGER_OLEDrag