放这里备份

原本想一个一个弄上来，后来一看太麻烦了，

function UrlEncode(str){

   var ret="";

   var strSpecial="!"#$%&'()*+,/:;<=>?[]^`{|}~%";

   for(var i=0;i<str.length;i++){

   var chr = str.charAt(i);

PUBLIC _form1

_form1=CREATEOBJECT("form1")

_form1.SHOW

RETURN

DEFINE CLASS form1 AS FORM

TOP = 90

LEFT = 294

dbf表建索引的方法

* TTS朗读功能

Function SP(cText)

    Local oSpeak

    m.oSpeak = CreateObject('SAPI.SpVoice')

    m.oSpeak.Speak(cText,2) && 1为异步，2为同步读完才能继续。

*!* IMAGECAPTURE.PRG

*!* Author : Gelson L. Bremm

*!* Description : Captures any image on the screen

PUBLIC oCapturaImg

oCapturaImg = CREATEOBJECT("CapturaImagem")

oCapturaImg.SHOW()

DEFINE CLASS CapturaImagem AS FORM

MSXML2.XMLHTTP.4.0对象

一、使用步骤：

1、创建XMLHTTP对象　//需MSXML4.0支持

2、打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普

通HTTP指令传送一样，可以用"GET"方法或"POST"方法指向服务端的服务网页。　

3、发送指令。　

***********************************************************

*-功能介绍:软件自动升级

*-调用方式:

*-upstr = 'RUN /N AutoUpdate.EXE "'+SYS(16,0)+'" '+ALLTRIM(STR(_VFP.ProcessId))+' "'+'新程序文件名"

*-&upstr

Local oCom as Object 

oCom = thisform.mscomm1

For i=1 To 10

   Try 

     oCom._CommPort =i

     oCom.portOpen=.t.

     oCom.portOpen =.f.

     Thisform.combo1.AddItem('COM'+Alltrim(Str(i)))

? NUMCVT(1234.56)

FUNCTION  NUMCVT

PARAMETERS tn_Num

RETURN LTRIM(TRANSFORM(tn_Num, "999,999,999.99"))