init Project...

Signed-off-by: j502647092 <jtb1@163.com>

Frm_Main.frm

@@ -0,0 +1,80 @@
+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

淘宝标签生成.vbp

@@ -0,0 +1,33 @@
+Type=Exe
+Form=Frm_Main.frm
+Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
+UserControl=..\VB用户控件\XmlHttp.ctl
+ResFile32="淘宝标签生成.RES"
+Startup="Frm_Main"
+HelpFile=""
+ExeName32="淘宝标签生成.exe"
+Path32="C:\Users\Administrator\Desktop"
+Command32=""
+Name="淘宝标签生成"
+HelpContextID="0"
+CompatibleMode="0"
+MajorVer=1
+MinorVer=0
+RevisionVer=0
+AutoIncrementVer=0
+ServerSupportFiles=0
+CompilationType=0
+OptimizationType=0
+FavorPentiumPro(tm)=0
+CodeViewDebugInfo=0
+NoAliasing=0
+BoundsCheck=0
+OverflowCheck=0
+FlPointCheck=0
+FDIVCheck=0
+UnroundedFP=0
+StartMode=0
+Unattended=0
+Retained=0
+ThreadPerObject=0
+MaxNumberOfThreads=1

淘宝标签生成.vbw

@@ -0,0 +1,2 @@
+Frm_Main = 455, 127, 1884, 632, , 22, 22, 1451, 527, C
+XmlHttp = 0, 0, 0, 0, C, 88, 88, 1517, 593, C