2012年10月11日[原创]图片批量添加去除白边工具v1.1

此工具可以对图片进行批量添加/去除白边处理,可自定义尺寸,支持BMP、GIF、JPEG、JPG、PNG、TIFF等图片格式。


软件采用C#开发,运行本软件需要下载安装.net运行库。.net运行库下载地址:http://www.onlinedown.net/soft/38669.htm



...

分类:原创软件  标签:图片  批量  添加  去除  白边  工具    网友评论2条  已浏览loading

2010年8月1日QQ批量自动申请源码

转自VBGood,By vbload。

QQ申请源码:

Private Sub Command1_Click()
    On Error GoTo Err
    Dim Province As String '省
    Dim City As String '市
    Dim strHead As String
    If VerifyCode.Text = "" Or Len(VerifyCode.Text) <> 4 Or NickName.Text = "" Or (UsrPsw.Text = "" Or Len(UsrPsw.Text) < 6) Then
        MsgBox "请检查注册信息是否正确输入!"
        Exit Sub
    End If
    NameRand = Array(6818, 8315, 5123, 2252)
    If Option1 Then Sex = "1" Else Sex = "2" '性别选择
    Province = Right(Combo5.Text, Len(Combo5.Text) - InStr(Combo5.Text, ":"))
    City = Right(Combo6.Item(Combo5.ListIndex), Len(Combo6.Item(Combo5.ListIndex)) - InStr(Combo6.Item(Combo5.ListIndex), ":"))
    ElementsArrName = Array("", "", NickName.Text, "0", Combo1.Text, CStr(Val(Combo2.Text)), CStr(Val(Combo3.Text)), Sex, "2", Trim(UsrPsw.Text), Trim(UsrPsw.Text), "1", Province, City, VerifyCode.Text)
    '----------------------"qq","email"'可以为空
    For i = 0 To 12
        a = Val(DataArrayShort(i)) Xor BaseNum
        b = 12 - i
        For j = 0 To 3
            a = a Xor NameRand(j)
        Next
        a = a Mod 15
       PostData = PostData + DataArrayLong(b) + "=" + ElementsArrName(a) + "&"
    Next
    strHead = "Content-Type: application/x-www-form-urlencoded"
    Label11.Caption = "开始申请……"
    ReturnCode = ""
    ReturnCode = GetInfoByInet("", "http://reg.qq.com/cgi-bin/getnum"[/color], [color=#808080]"POST", PostData, strHead, 2, ProxyIP) '代理IP--ProxyIP
    If InStr(ReturnCode, "xyz=") <> 0 Then
        NewQQNum = RemoveHeadTail(ReturnCode, "var xyz=""", """;")
        Label11.Caption = "恭喜你申请到一个QQ号:" + NewQQNum
        VerifyCode.Text = ""
        Open App.Path & "\qq.txt" For Append As #1
            Print #1, NewQQNum; "----"; Trim(UsrPsw.Text); "    申请日期:"; Format(Now, "yyyy年mm月dd日")
        Close #1
        Call RefreshVerifyCode
    ElseIf InStr(ReturnCode, "f_showInfoInLayer") <> 0 Then
        Label11.Caption = "验证码错误"
    ElseIf InStr(ReturnCode, "对不起,此IP申请的操作过于频繁") <> 0 Then
        Label11.Caption = "此IP已被限制,请更换IP,或使用邮箱QQ。"
    ElseIf InStr(ReturnCode, "现在申请的人过多") <> 0 Then
        Label11.Caption = "现在申请的人过多,系统无法响应您的请求。"
    End If
    Exit Sub
Err:
    Label11.Caption = "抱歉,申请过程中发生错误,未能成功!"
End Sub

分类:程序设计  标签:qq  批量  自动  申请  源码  VB    网友评论0条  已浏览loading

«1»