Wizzer's Blog

某姐招亲：“今年谁愿意陪姐过20111111特大豹子光棍节，姐明年让他过父亲节” 单位众同僚蠢蠢欲动，唯一哥们岿然不动 试问到：“哥为何如此淡定” 解析道：“从11.11到明年父亲节仅剩7个多月，这爹当的冤啊” 众人梦醒，齐叹道：“这真是一个坑爹的时代啊….”

作业本：晚上跟一老板吃饭，他是为山寨手机供应外壳的。整个晚上他都郁郁寡欢，有人问他怎么了，他说曾经辉煌的小工厂破产了。大家又很关心地问是什么原因，他面带哭腔的说：我生产了三百万套iphone5外壳……

几个人在一起聊天，有个家伙放了个很臭却不响的屁，刚放完就对大家说：哎，什么东西糊了？然后大家都使劲地吸鼻子……这人太坏了！

我们都爱重口味: 前几天看到的那个“小撸怡情，大撸伤身，强撸灰飞烟灭”，找到下联了：“先撕长裙，后撕短裤，百撕不得骑姐” ,然后横批TMD也出来了 【无撸木骑】 啊 我艹……

某人为了享受3G新生活，换了一个手机号，晚上突发奇想，给同事群发了一条：“亲爱的，我换这个号了，啵一个，以后记得和我聊哟。”接着关机睡觉。第二天上班后，其他同事都脸色憔悴，还有一人有淤青的痕迹……后来那人再也不敢开机，又偷偷换了一个新的3G号。

给自己名字一个合理诗意的解释。

有人相伴左右是幸，一切顺利诸事如意是福，倖福全來。

某对男女在校外租房。暑假MM去外地实习了，GG还在房里住着。MM实习归来，见房间里脏兮兮的，显然几星期都没打扫过，于是就勤快地来了个大扫除。晚上GG回来了，问：”桌上的灰怎么不见了？上面还记着电话号码呢……”

都觉得Siri神奇，其实背后的故事是Apple在印度的海德拉巴建了一个巨大的呼叫中心，所有用户和Siri的问题都被传到这里，然后三哥三姐们飞快的打字回答。Apple内部把这个叫印度云，简称iCloud..

和媳妇去银行汇款，她先进去填单，我去停车，停好后进银行，看到媳妇的钱在口袋漏出一半，想恶作剧，假装偷掉，吓吓她，刚伸出手，被保安一脚踹出3米远…

一辆大巴在崎岖的山道上行驶着。天渐暗，车上的男子从睡梦中醒来……突然，他发现，车上的游客都不见了，就连司机也消失了，而车却沿着山路缓慢行驶着！男子浑身一颤，大声喊道：“有鬼！有鬼啊！”“有你个头，”突然车窗外传来声音，“车坏了，我们都在下面推，就你一个人睡觉。”

总有一群隐身的朋友如死人一般躺在你的好友列表里，偶尔诈诈尸，时不时还会改改他们的墓志铭。

列车上乘客都低头摆弄着手机。渐渐地有一部分乘客放下手机，满怀惆怅地望向窗外：他们是iPhone用户，他们手机没电了。列车又经过了几站，又有一部分乘客放下手机，满怀惆怅地望向窗外：他们是Android用户，他们第二块电池也用完了.突然打雷车停了,部分乘客举起手中的诺基亚砸开了车窗,他们得救了…

办理地址：

http://ah.ct10000.com/shop/FiveCodeAction.do?method=code

第一步：填写个人信息；

第二步：接受邮件验证；

第三步：选择上网套餐。

温馨提示：
1、您需要为手机号办理20元以上流量包，如果原来已办理20元或以上流量包，则需往上升级为30元或50元流量包。如果已有50元流量包，则可直接查询五码，无需办理。
2、办理流量包的方式：您可以直接点击或者通过手机发送短信412220到10001开通20元包150M上网包、发送短信412230到10001开通30元300m上网包 、发送短信412250到10001开通50元包800M上网包。

幼儿园开学，许多孩子被送来，家长走后，孩子们哭闹着，简直跟宰猪场差不多！这时候，唯独有一个小孩蹲在墙角巨蛋定，老师准备好好夸一下他，刚走近，那个小孩以迅雷不及掩耳之势，抢过老师手机，连号码都没拨，拿起手机就对着手机哭喊着：“爸爸，快来救我啊！我被妈妈卖了…”

网页中实现自动上传本地文件，而不需要用户选择，这种应用场景很多，例如业务系统中需要使用的二代身份证扫描器、一体机（扫描仪）、摄像头拍照等。

首先介绍一个国外网站：http://www.planet-source-code.com/ 里面有许多可用的源代码供参考，搜索 upload file 找到 vb6 file uploader （类似的代码比较多，这个是比较好的一个）。

VB通过模拟HTTP POST过程把文件提交至服务器。

Dim WinHttpReq As WinHttp.WinHttpRequest
Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
Const HTTPREQUEST_SETCREDENTIALS_FOR_PROXY = 1
Const BOUNDARY = "Xu02=$"
Const HEADER = "--Xu02=$"
Const FOOTER = "--Xu02=$--"

Function UploadFiles(DirPath As String, strFileName As Variant, strFileForm As Variant, strURL As String, _
Optional postName As Variant, Optional postVar As Variant, Optional strUserName As String, _
Optional strPassword As String) As String

    Dim fName As String
    Dim strFile As String
    Dim strBody As String
    Dim aPostBody() As Byte
    Dim nFile As Integer
    Dim p As Integer

    Set WinHttpReq = New WinHttpRequest

    ' Turn error trapping on
    On Error GoTo SaveErrHandler

    ' Assemble an HTTP request.
    WinHttpReq.Open "POST", strURL, False

    If strUserName <> "" And strPassword <> "" Then
        ' Set the user name and password, for server request authentication
        WinHttpReq.SetCredentials strUserName, strPassword, _
        HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    End If

    '-------------------------- Becareful not to mingle too much here -----------------------------------

    ' Set the header
    WinHttpReq.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & BOUNDARY

    ' Assemble the body
    ' Starting tag
    strBody = HEADER

    For i = 0 To UBound(strFileName)

        ' Grap the name
        fName = strFileName(i)

        ' Grap the file
        strFile = GetFile(DirPath & "\" & fName)

            strBody = strBody & vbCrLf & "Content-Disposition: form-data; name=""" & strFileForm(i) & _
             """; filename=""" & fName & """ " & vbCrLf & "Content-type: file" & _
            vbCrLf & vbCrLf & strFile & vbCrLf

        If i < UBound(strFileName) Then
            ' This is boundary tag between two files
            strBody = strBody & "--Xu02=$"
        End If
        strFile = ""

    Next i

'Posted Variable

    For p = 0 To UBound(postName)
    strBody = strBody & HEADER & vbCrLf
    strBody = strBody & "Content-Disposition: form-data; name=""" & postName(p) & """" & vbCrLf & vbCrLf
    strBody = strBody & postVar(p) & vbCrLf
    'Debug.Print "-----------------------------------------------------------------------------------------------------"
    'Debug.Print "Content-Disposition: form-data; name=""" & postName(p) & """" & vbCrLf & vbCrLf & postVar(p) & vbCrLf
    'Debug.Print "-----------------------------------------------------------------------------------------------------"
    Next p

    ' Ending tag
    strBody = strBody & FOOTER

    ' Because of binary zeros, post body has to convert to byte array
    aPostBody = StrConv(strBody, vbFromUnicode)

    ' Send the HTTP Request.
    WinHttpReq.Send aPostBody

    ' Display the status code and response headers.
    'debug.print WinHttpReq.GetAllResponseHeaders & "  " & WinHttpReq.ResponseText

    UploadFiles = WinHttpReq.ResponseText
    Debug.Print "[UploadScript::UploadFiles]" & vbCrLf & WinHttpReq.ResponseText

    Set WinHttpReq = Nothing
    Exit Function

SaveErrHandler:

    Debug.Print "[UploadScript::UploadFiles]" & vbCrLf & Err.Description
    UploadFiles = WinHttpReq.ResponseText
    Set WinHttpReq = Nothing

End Function

Function GetFile(strFileName As String) As String

    Dim strFile As String

    ' Grap the file
    nFile = FreeFile
    Open strFileName For Binary As #nFile
    strFile = String(LOF(nFile), " ")
    Get #nFile, , strFile
    Close #nFile

    GetFile = strFile

End Function

'-----------------------------------------------------------
Private Sub Command1_Click()
Dim pst As New clsUploadEngine

'file path (make sure put "\" after folder name)
filepath = App.Path & "\sample\"

'filename array
filearr = Array("scenery1.jpg", "scenery2.jpg", "scenery3.jpg")

'form file post name (equivalent to <input type="file" name="filename">
fileform = Array("fileA", "fileB", "fileC")

'url to post file/information
uploadurl = "http://127.0.0.1:8080/savefile.jsp"

'post parameter & posted variable (optional)
'if no post parameter, just put dummy post, if not error will occur
postparam = Array("id", "uname", "passwd", "op")
postVar = Array("1", "root", "", "tdrupload")

pst.UploadFiles CStr(filepath), filearr, fileform, CStr(uploadurl), postparam, postVar

End Sub

在此基础上，做成ActiveX控件即可。但问题是这个源码上传到服务器的文本文件虽然看起来正常但文件结尾会有空编码、图片损坏。囧。

后来发现 WebNoteEditor 可以实现粘贴QQ截图，自动把文件上传到服务器，于是联系作者。作者是个好人哈，分享了一些经验甚至代码。目前在作者的帮助下，已实现的网页控件的文件自动上传功能，可传多个文件、多表单项。

下面要解决如何在线安装的问题了……

前提是先越狱。

1、确保安装1.3最新版本的QQ

http://softfile.3g.qq.com:8080/msoft/179/1105/27462/QQ2011Build2070.ipa  （2070）

2、安装补丁

在Cydia中添加（维维源）AppVv源 : http://apt.appVv.com

选择 QQ CDMA 版视频补丁 进行安装

安装后重启QQ即可。

<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=GBK"/>
    <meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7"/>
	<script type="text/javascript" src="http://api.map.baidu.com/api?v=1.2"></script>
	<script type="text/javascript" src="http://dev.baidu.com/wiki/static/map/API/examples/script/convertor.js"></script>
</head>
<body style="padding:4px 0px 4px 4px;overflow-y:scroll">
<div style="position:relative; width:100%;height:405px;border:1px solid #D4D0C8;" id="container"></div>
<script language="javascript" id="mapscript">
document.getElementById("container").style.height = document.body.clientHeight+18;
var map = new BMap.Map("container");
map.centerAndZoom("兰州", 5);
map.addControl(new BMap.NavigationControl());
map.enableScrollWheelZoom();//启动鼠标滚轮缩放地图

map.addEventListener('load',function(){

//增加一个标注点
//doaddpoint('<%=appname%>/img/private/images/icon_home1.png', '', '<%=locdata.getRegion()%><%=locdata.getCity()%><%=locdata.getStreet()%>', '', '<%=jd%>', '<%=wd%>', '<%=locdata.getPhone()%>', '<%=Sys_userCtl.getUserNameByloginNames(locdata.getLoginname())%>','<%=locdata.getCtime()%>','#ff0000','<%=Loc_dataCtl.getLocType(locdata)%>');

});
//新增一个点时处理方法
function doaddpoint(img, name, dz, id, jd, wd, dh, lxr,sm,color,type)
{
var sContent ="<div class='tab_TextInput_map' style='width:250px;'><table id='TextInput_map' align=left><tr><td><b>人员姓名：</b></td><td>" + lxr + "</td></tr><tr><td><b>手机号码：</b></td><td>" + dh + "</td></tr><tr><td><b>定位时间：</b></td><td>" + sm + "</td></tr><tr><tr><td><b>上传地址：</b></td><td>" + dz + "</td></tr><tr><td><b>定位方式：</b></td><td>" + type + "</td></tr></table></div>";
var gpsPoint = new BMap.Point(jd,wd);

translateOptions = function (point){
var marker = new BMap.Marker(point);

var infoWindow = new BMap.InfoWindow(sContent);  // 创建信息窗口对象
map.addOverlay(marker);
marker.addEventListener("click", function(){
   this.openInfoWindow(infoWindow);
});
marker.setLabel(new BMap.Label("<span style='color:blue;font-size:16px;font-weight:bold;'>" + lxr +"</span>",{offset:new BMap.Size(20,0)}));   

}
BMap.Convertor.translate(gpsPoint,0,translateOptions);

}

</script>
</div>
</form>
</body>
</html>

从前有个学姐，长得好漂亮，注意她很久了，有一次晚自习终于找到机会鼓足勇气坐在她旁边找她搭讪，但是发现……她有口臭！！