mirror of
https://e.coding.net/circlecloud/TaoBaoLink.git
synced 2024-11-14 00:28:59 +00:00
81 lines
2.2 KiB
Plaintext
81 lines
2.2 KiB
Plaintext
|
VERSION 5.00
|
|||
|
|
Begin VB.Form Frm_Main
|
|||
|
|
Caption = "<22>Ա<EFBFBD><D4B1><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>"
|
|||
|
|
ClientHeight = 1590
|
|||
|
|
ClientLeft = 60
|
|||
|
|
ClientTop = 345
|
|||
|
|
ClientWidth = 3375
|
|||
|
|
LinkTopic = "Form1"
|
|||
|
|
ScaleHeight = 1590
|
|||
|
|
ScaleWidth = 3375
|
|||
|
|
StartUpPosition = 3 '<27><><EFBFBD><EFBFBD>ȱʡ
|
|||
|
|
Begin <20>Ա<EFBFBD><D4B1><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>.XmlHttp XmlHttp
|
|||
|
|
Height = 240
|
|||
|
|
Left = 285
|
|||
|
|
Top = 1095
|
|||
|
|
Visible = 0 'False
|
|||
|
|
Width = 240
|
|||
|
|
_ExtentX = 423
|
|||
|
|
_ExtentY = 423
|
|||
|
|
End
|
|||
|
|
Begin VB.CommandButton submit
|
|||
|
|
Caption = "<22><><EFBFBD>ɴ<EFBFBD><C9B4><EFBFBD>"
|
|||
|
|
Height = 435
|
|||
|
|
Left = 855
|
|||
|
|
TabIndex = 4
|
|||
|
|
Top = 1005
|
|||
|
|
Width = 1665
|
|||
|
|
End
|
|||
|
|
Begin VB.TextBox tip
|
|||
|
|
Height = 300
|
|||
|
|
Left = 1035
|
|||
|
|
TabIndex = 3
|
|||
|
|
Text = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ҷ<EFBFBD><D2B7><EFBFBD>Ϣ"
|
|||
|
|
Top = 585
|
|||
|
|
Width = 2000
|
|||
|
|
End
|
|||
|
|
Begin VB.TextBox username
|
|||
|
|
Height = 300
|
|||
|
|
Left = 1035
|
|||
|
|
TabIndex = 0
|
|||
|
|
Top = 120
|
|||
|
|
Width = 2000
|
|||
|
|
End
|
|||
|
|
Begin VB.Label Label2
|
|||
|
|
AutoSize = -1 'True
|
|||
|
|
Caption = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ:"
|
|||
|
|
Height = 180
|
|||
|
|
Left = 180
|
|||
|
|
TabIndex = 2
|
|||
|
|
Top = 645
|
|||
|
|
Width = 810
|
|||
|
|
End
|
|||
|
|
Begin VB.Label Label1
|
|||
|
|
AutoSize = -1 'True
|
|||
|
|
Caption = "<22>Ա<EFBFBD><D4B1>˺<EFBFBD>:"
|
|||
|
|
Height = 180
|
|||
|
|
Left = 180
|
|||
|
|
TabIndex = 1
|
|||
|
|
Top = 180
|
|||
|
|
Width = 810
|
|||
|
|
End
|
|||
|
|
End
|
|||
|
|
Attribute VB_Name = "Frm_Main"
|
|||
|
|
Attribute VB_GlobalNameSpace = False
|
|||
|
|
Attribute VB_Creatable = False
|
|||
|
|
Attribute VB_PredeclaredId = True
|
|||
|
|
Attribute VB_Exposed = False
|
|||
|
|
Option Explicit
|
|||
|
|
|
|||
|
|
Private Sub submit_Click()
|
|||
|
|
Clipboard.Clear
|
|||
|
|
Dim Html As String
|
|||
|
|
Html = LoadResString(1)
|
|||
|
|
Dim UID As String
|
|||
|
|
UID = XmlHttp.URLEncode(username)
|
|||
|
|
Html = Replace(Html, "{uid}", UID)
|
|||
|
|
Html = Replace(Html, "{tip}", tip.Text)
|
|||
|
|
Clipboard.SetText Html
|
|||
|
|
MsgBox "<22><><EFBFBD>ɳɹ<C9B3>,<2C><><EFBFBD><EFBFBD><EFBFBD>Ѹ<EFBFBD><D1B8>ƴ<EFBFBD><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!"
|
|||
|
|
End Sub
|