502647092
/
TaoBaoLink
mirror of https://e.coding.net/circlecloud/TaoBaoLink.git
1
0
Fork 0
Code Releases Activity

add icon... 

Signed-off-by: j502647092 <jtb1@163.com>
master
j502647092 2015-07-16 15:54:59 +08:00
parent 43d8e7872f
commit 2eea030bcc
4 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Frm_Main.frm
View File

@ -1,10 +1,11 @@
VERSION 5.00 VERSION 5.00
Begin VB.Form Frm_Main Begin VB.Form Frm_Main
Caption = "淘宝标签生成" Caption = "旺旺标签生成"
ClientHeight = 1590 ClientHeight = 1590
ClientLeft = 60 ClientLeft = 60
ClientTop = 345 ClientTop = 345
ClientWidth = 3375 ClientWidth = 3375
Icon = "Frm_Main.frx":0000
LinkTopic = "Form1" LinkTopic = "Form1"
ScaleHeight = 1590 ScaleHeight = 1590
ScaleWidth = 3375 ScaleWidth = 3375
@ -12,7 +13,7 @@ Begin VB.Form Frm_Main
Begin ÌÔ±¦±êÇ©Éú³É.XmlHttp XmlHttp Begin ÌÔ±¦±êÇ©Éú³É.XmlHttp XmlHttp
Height = 240 Height = 240
Left = 285 Left = 285
Top = 1095 Top = 1305
Visible = 0 'False Visible = 0 'False
Width = 240 Width = 240
_ExtentX = 423 _ExtentX = 423
@ -23,7 +24,7 @@ Begin VB.Form Frm_Main
Height = 435 Height = 435
Left = 855 Left = 855
TabIndex = 4 TabIndex = 4
Top = 1005 Top = 1035
Width = 1665 Width = 1665
End End
Begin VB.TextBox tip Begin VB.TextBox tip
@ -72,7 +73,7 @@ Private Sub submit_Click()
Dim Html As String Dim Html As String
Html = LoadResString(1) Html = LoadResString(1)
Dim UID As String Dim UID As String
UID = XmlHttp.URLEncode(username) UID = XmlHttp.UTF8_URLEncoding(username)
Html = Replace(Html, "{uid}", UID) Html = Replace(Html, "{uid}", UID)
Html = Replace(Html, "{tip}", tip.Text) Html = Replace(Html, "{tip}", tip.Text)
Clipboard.SetText Html Clipboard.SetText Html

BIN
Frm_Main.frx Normal file
View File

Binary file not shown.

3
淘宝标签生成.vbp
View File

@ -3,9 +3,10 @@ Form=Frm_Main.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation
UserControl=..\VB用户控件\XmlHttp.ctl UserControl=..\VB用户控件\XmlHttp.ctl
ResFile32="淘宝标签生成.RES" ResFile32="淘宝标签生成.RES"
IconForm="Frm_Main"
Startup="Frm_Main" Startup="Frm_Main"
HelpFile="" HelpFile=""
ExeName32="淘宝标签生成.exe" ExeName32="旺旺标签生成.exe"
Path32="C:\Users\Administrator\Desktop" Path32="C:\Users\Administrator\Desktop"
Command32="" Command32=""
Name="淘宝标签生成" Name="淘宝标签生成"

4
淘宝标签生成.vbw
View File

@ -1,2 +1,2 @@
Frm_Main = 455, 127, 1884, 632, , 22, 22, 1451, 527, C Frm_Main = 107, 92, 1536, 597, C, 22, 22, 1451, 527, C
XmlHttp = 0, 0, 0, 0, C, 88, 88, 1517, 593, C XmlHttp = 312, 63, 1741, 725, , 88, 88, 1517, 593, C