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 = "淘宝标签生成"
|
|
ClientHeight = 1590
|
|
ClientLeft = 60
|
|
ClientTop = 345
|
|
ClientWidth = 3375
|
|
LinkTopic = "Form1"
|
|
ScaleHeight = 1590
|
|
ScaleWidth = 3375
|
|
StartUpPosition = 3 '窗口缺省
|
|
Begin 淘宝标签生成.XmlHttp XmlHttp
|
|
Height = 240
|
|
Left = 285
|
|
Top = 1095
|
|
Visible = 0 'False
|
|
Width = 240
|
|
_ExtentX = 423
|
|
_ExtentY = 423
|
|
End
|
|
Begin VB.CommandButton submit
|
|
Caption = "生成代码"
|
|
Height = 435
|
|
Left = 855
|
|
TabIndex = 4
|
|
Top = 1005
|
|
Width = 1665
|
|
End
|
|
Begin VB.TextBox tip
|
|
Height = 300
|
|
Left = 1035
|
|
TabIndex = 3
|
|
Text = "点击这里给我发消息"
|
|
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 = "悬浮提示:"
|
|
Height = 180
|
|
Left = 180
|
|
TabIndex = 2
|
|
Top = 645
|
|
Width = 810
|
|
End
|
|
Begin VB.Label Label1
|
|
AutoSize = -1 'True
|
|
Caption = "淘宝账号:"
|
|
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 "生成成功,代码已复制带剪贴板!"
|
|
End Sub
|