From 43d8e7872f3e30f4e075d567a55c74be0cf48798 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Thu, 16 Jul 2015 14:57:18 +0800 Subject: [PATCH] init Project... Signed-off-by: j502647092 --- Frm_Main.frm | 80 +++++++++++++++++++++++++++++++++++++++++++++++ 淘宝标签生成.RES | Bin 0 -> 804 bytes 淘宝标签生成.vbp | 33 +++++++++++++++++++ 淘宝标签生成.vbw | 2 ++ 4 files changed, 115 insertions(+) create mode 100644 Frm_Main.frm create mode 100644 淘宝标签生成.RES create mode 100644 淘宝标签生成.vbp create mode 100644 淘宝标签生成.vbw 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 0000000000000000000000000000000000000000..ca6bbc937e640743ec31ce3a5294f336d62399a7 GIT binary patch literal 804 zcmc(d-Acni6ojWD;$wtfcxPfOh}5<|iu5Oc*rX*%En51rzDWJfCLs~L5N`}@m_29C zY-X~Oy`8>PM@KbH~K3j;BLO8JL>JNZ~n^0-yVfXw|d0eZ@icIvn)ImD!t>$&L5(& zrCOn6U-dzC0%xoT_!U0t^4veE xZ_$wyQnEO?`T@MAk~r=NcFj+iPf5s9F_n7~G@YQicWwIpTNt1^?=JI?=nHOvfye*= literal 0 HcmV?d00001 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