commit 43d8e7872f3e30f4e075d567a55c74be0cf48798 Author: j502647092 Date: Thu Jul 16 14:57:18 2015 +0800 init Project... Signed-off-by: j502647092 diff --git a/Frm_Main.frm b/Frm_Main.frm new file mode 100644 index 0000000..58a3f97 --- /dev/null +++ b/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 diff --git a/娣樺疂鏍囩鐢熸垚.RES b/娣樺疂鏍囩鐢熸垚.RES new file mode 100644 index 0000000..ca6bbc9 Binary files /dev/null and b/娣樺疂鏍囩鐢熸垚.RES differ diff --git a/娣樺疂鏍囩鐢熸垚.vbp b/娣樺疂鏍囩鐢熸垚.vbp new file mode 100644 index 0000000..c8dc37e --- /dev/null +++ b/娣樺疂鏍囩鐢熸垚.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 diff --git a/娣樺疂鏍囩鐢熸垚.vbw b/娣樺疂鏍囩鐢熸垚.vbw new file mode 100644 index 0000000..37d7c18 --- /dev/null +++ b/娣樺疂鏍囩鐢熸垚.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