JAVAÈçºÎµ÷ÓÃvb дµÄ dll
ÎÒʹÓÃjawinÈ¥µ÷ÓÃdll..²âÊÔjawin×Ô´øµÄÀý×ӳɹ¦,µ«Êǵ÷ÓÃÎÒ×Ô¼ºµÄ¾Í²»ÐÐ.
vb дµÄ dll
·½·¨Ç©Ãû:
VBScript code:
Private Declare Function GetHeadXh Lib "MSControlctl.dll" (ByVal tmpXxdm As String, ByRef tmpHeadXh As String, ByRef tmpJxmc As String) As Boolean
ÎÒµÄJAVAÔ´Âë:
Java code:
package com.gam.cl;
import org.jawin.FuncPtr;
import org.jawin.ReturnFlags;
import org.jawin.io.LittleEndianOutputStream;
import org.jawin.io.NakedByteStream;
public class yz {
public static void main(String[] args) {
try {
FuncPtr msgBox = new FuncPtr("MSControlctl.DLL", "GetHeadXh");
NakedByteStream nbs = new NakedByteStream();
LittleEndianOutputStream leos = new LittleEndianOutputStream(nbs);
leos.writeStringUnicode("701");
byte[] b=msgBox.invoke("G:GG:", 16, nbs, null, ReturnFlags.CHECK_FALSE);
//Õâ¸öµØ·½µÄG:GG:Ó¦¸ÃÔõÃ´Ð´ÄØ?»òÕ߯äËü²ÎÊý.
System.out.println("aa");
System.out.println(b);
leos.close();
} catch (Exception e) {
e.printStackTrace
Ïà¹ØÎÊ´ð£º
JSPÒ³ÃæÖÐÓжà¸öradio°´Å¥
JSPÒ³Ãæ½«²ÎÊýPOST¸øservlet
ÒªÇóÈçÏÂ;
1.Ñ¡ÔñÒ»¸öradio£¬µ÷ÓÃservlet servletÖиù¾Ý²ÎÊýµ÷ÓÃÆäËû½Ó¿Ú£¬³ý·ÇÑ¡ÖиÃradio²¢µã»÷JSPÖеÄʵР......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
Êý¾Ý¿âÀïÓÐÒ»¸ö×ֶεÄÄÚÈÝÊǶþ½øÖÆ£¬Ôõô²ÅÄܰÑÕâ¸ö¶þ½øÖƶÁ³öÀ´
ʹÓÃ×Ö½ÚÁ÷¶ÔÏó¿ÉÒÔʵÏÖ
ÀýÈçÏÖÔÚÊý¾Ý¿âÀïÓиö×ֶεÄÄÚÈÝÊÇ0x504B03040A0000000800407F263C3B02465390000000820000000A0000006273CECACCE22E7478 ......
org.apache.jasper.JasperException: Unable to compile class for JSP:
An error occurred at line: 52 in the jsp file: /vip_info.jsp
ÕË cannot be resolved
49: <table border="1& ......