文件列表:

compuschat\1.ico (1078, 2000-12-15)
compuschat\2.ico (1078, 2000-12-15)
compuschat\3.ico (1078, 2000-12-15)
compuschat\ActiveSkin.ocx (110592, 2003-03-28)
compuschat\ACTIVE~1.oca (16896, 2001-03-04)
compuschat\add.frm (8935, 2001-02-14)
compuschat\add.frx (38, 2001-02-14)
compuschat\Change (8373, 1998-08-26)
compuschat\chrome.bmp (100520, 1999-02-11)
compuschat\chrome_act.bmp (89220, 1999-02-11)
compuschat\chrome_bg.bmp (13264, 1999-01-09)
compuschat\code999.com说明.txt (1944, 2005-01-31)
compuschat\Exitpass.frm (4811, 2000-12-17)
compuschat\Exitpass.frx (1090, 2000-12-17)
compuschat\General.bas (6865, 2001-03-03)
compuschat\Get.frm (5323, 2001-02-13)
compuschat\get.log (68, 2007-03-16)
compuschat\get.vbp (785, 2007-03-16)
compuschat\get.vbw (37, 2007-03-16)
compuschat\Mag (14042, 2001-01-04)
compuschat\Mags (1712, 1996-09-03)
compuschat\Modinfo.frm (11372, 2001-03-03)
compuschat\Modinfo.frx (26, 2001-03-03)
compuschat\online (4825, 1998-10-29)
compuschat\RTmp (46, 2001-01-07)
compuschat\Rtmp.wav (0, 2001-01-04)
compuschat\SEND.frm (6650, 2001-02-13)
compuschat\SEND.log (247, 2007-03-16)
compuschat\SEND.vbp (789, 2007-03-16)
compuschat\SEND.vbw (49, 2007-03-16)
compuschat\sendfile.frm (3470, 2000-12-30)
compuschat\server.frm (40466, 2001-03-07)
compuschat\server.frx (9261, 2001-03-07)
compuschat\Setup.SWT (5062, 2001-03-04)
compuschat\skin.BAK (7584, 2001-03-03)
compuschat\skin.xml (7583, 2001-03-03)
... ...

VERSION 5.00 Begin VB.Form Readme AutoRedraw = -1 'True BorderStyle = 0 'None Caption = "关于我" ClientHeight = 2160 ClientLeft = 105 ClientTop = 1200 ClientWidth = 1875 ClipControls = 0 'False ControlBox = 0 'False Icon = "Readme.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False Moveable = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 144 ScaleMode = 3 'Pixel ScaleWidth = 125 ShowInTaskbar = 0 'False Begin VB.Timer Timer1 Interval = 50 Left = -45 Top = -15 End Begin VB.Image Image1 Height = 1320 Left = 270 Picture = "Readme.frx":000C ToolTipText = "我是罗明" Top = 885 Width = 1485 End End Attribute VB_Name = "Readme" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long 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 Long) Private Type POINTAPI X As Long Y As Long End Type Private scnPts() As POINTAPI Private rgnPts() As POINTAPI Private Const SM_CYCAPTION = 4 Private Const SM_CXFRAME = 32 Private Const SM_CYFRAME = 33 Private Const ALTERNATE = 1 Private m_FillMode As Long Private Const nPts& = 36 Private Sub Form_Load() Me.Top = 0 Me.Left = 0 - Me.Width m_FillMode = ALTERNATE Dim rtn rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) With Me .ScaleMode = vbPixels .Icon = Nothing End With End Sub Private Static Sub CalcRgnPoints() ReDim scnPts(0 To nPts) As POINTAPI ReDim rgnPts(0 To nPts) As POINTAPI Dim offset As Long Dim angle As Long Dim theta As Double Dim radius1 As Long Dim radius2 As Long Dim x1 As Long Dim y1 As Long Dim xOff As Long Dim yOff As Long Dim n As Long Const Pi# = 3.14159265358979 Const DegToRad# = Pi / 180 x1 = Me.ScaleWidth \ 2 y1 = Me.ScaleHeight \ 2 If x1 > y1 Then radius1 = y1 * 0.85 Else radius1 = x1 * 0.85 End If radius2 = radius1 * 0.5 xOff = GetSystemMetrics(SM_CXFRAME) yOff = GetSystemMetrics(SM_CYFRAME) + GetSystemMetrics(SM_CYCAPTION) n = 0 For angle = 0 To 360 Step 10 theta = (angle - offset) * DegToRad If n Mod 2 Then scnPts(n).X = x1 + (radius1 * (Sin(theta))) scnPts(n).Y = y1 + (radius1 * (Cos(theta))) Else scnPts(n).X = x1 + (radius2 * (Sin(theta))) scnPts(n).Y = y1 + (radius2 * (Cos(theta))) End If rgnPts(n).X = scnPts(n).X + xOff rgnPts(n).Y = scnPts(n).Y + yOff n = n + 1 DoEvents Next angle offset = (offset + 2) Mod 361 End Sub Private Sub Image1_DblClick() MsgBox "谢谢使用本软件" & Chr(13) & " 请你多多支持", , "校园及时通" Timer1.Enabled = False Dim a As Integer For a = 50 To 450 Me.Left = Me.Left - a DoEvents If Me.Left + Me.Width < 0 Then Unload Me: Exit Sub Next Unload Me End Sub Private Static Sub Timer1_Timer() Dim nRet As Long Dim hRgn As Long CalcRgnPoints hRgn = CreatePolygonRgn(rgnPts(0), nPts, m_FillMode) nRet = SetWindowRgn(Me.hwnd, hRgn, True) DoEvents If Me.Left > Screen.Width Then Unload Me: Exit Sub End If Me.Left = Me.Left + 30 End Sub

近期下载者：

相关文件：

评论：[我要评论] [举报此文件]

收藏者：