Совместимость Ие6 И Ие7 ( А Может Вбс Версий) На Скрипте! Нужна По

Тема в разделе "Visual Basic", создана пользователем k2chogori, 17 фев 2012.

  1. k2chogori

    k2chogori Гость

    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
    <HTML>
    <HEAD>
    <title>PrintBarCode</title>
    <meta content="True" name="vs_snapToGrid">
    <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
    <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
    <meta content="JavaScript" name="vs_defaultClientScript">
    <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
    </HEAD>
    </form>
    <script language="VbScript">
    On Error Resume Next

    Dim objShell
    Dim sPath
    Dim sPrinter
    Dim sPort
    Dim sDriver
    Dim ar_PrnInfo
    Dim strMessage
    Dim strAppl
    Dim sPrinterPath
    Dim ok
    Dim sSourceUrl
    Dim sLocalFile
    Dim hfile
    dim objimg

    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objShell = CreateObject("WScript.Shell")
    Set objNetwork = CreateObject("WScript.Network")
    ComputerName = objNetwork.computername
    sPath = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
    ar_PrnInfo = Split(objShell.RegRead(sPath), ",")
    If IsArray(ar_PrnInfo) Then
    sPrinterPath = ar_PrnInfo(0)
    sPort = ar_PrnInfo(2)
    sDriver = ar_PrnInfo(1)
    Else
    sPrinterPath = ar_PrnInfo
    sPort = ar_PrnInfo
    sDriver = ar_PrnInfo
    End If
    dim s
    s= "71;73;70;56;57;97;174;0;49;0;247;0;0;0;0;0;128;0;0;0;128;0;128;128;0;0;0;12
    8;128;0;128;0;128;128;128;128;128;192;192;192;255;0;0;0;255;0;255;255;0;0;0;255;
    2
    55;0;255;0;255;255;255;255;255;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
    ;
    0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;
    0
    ;0;0;0;0;0;0;0;0;0;0;0;51;0;0;102;0;0;153;0;0;204;0;0;255;0;51;0;0;51;51;0;51;10
    2
    ;0;51;153;0;51;204;0;51;255;0;102;0;0;102;51;0;102;102;0;102;153;0;102;204;0;102
    ;
    255;0;153;0;0;153;51;0;153;102;0;153;153;0;153;204;0;153;255;0;204;0;0;204;51;0;
    2
    04;102;0;204;153;0;204;204;0;204;255;0;255;0;0;255;51;0;255;102;0;255;153;0;255;
    2
    04;0;255;255;51;0;0;51;0;51;51;0;102;51;0;153;51;0;204;51;0;255;51;51;0;51;51;51
    ;
    51;51;102;51;51;153;51;51;204;51;51;255;51;102;0;51;102;51;51;102;102;51;102;153
    ;
    51;102;204;51;102;255;51;153;0;51;153;51;51;153;102;51;153;153;51;153;204;51;153
    ;
    255;51;204;0;51;204;51;51;204;102;51;204;153;51;204;204;51;204;255;51;255;0;51;2
    5
    5;51;51;255;102;51;255;153;51;255;204;51;255;255;102;0;0;102;0;51;102;0;102;102;
    0
    ;153;102;0;204;102;0;255;102;51;0;102;51;51;102;51;102;102;51;153;102;51;204;102
    ;
    51;255;102;102;0;102;102;51;102;102;102;102;102;153;102;102;204;102;102;255;102;
    1
    53;0;102;153;51;102;153;102;102;153;153;102;153;204;102;153;255;102;204;0;102;20
    4
    ;51;102;204;102;102;204;153;102;204;204;102;204;255;102;255;0;102;255;51;102;255
    ;
    102;102;255;153;102;255;204;102;255;255;153;0;0;153;0;51;153;0;102;153;0;153;153
    ;
    0;204;153;0;255;153;51;0;153;51;51;153;51;102;153;51;153;153;51;204;153;51;255;1
    5
    3;102;0;153;102;51;153;102;102;153;102;153;153;102;204;153;102;255;153;153;0;153
    ;
    153;51;153;153;102;153;153;153;153;153;204;153;153;255;153;204;0;153;204;51;153;
    2
    04;102;153;204;153;153;204;204;153;204;255;153;255;0;153;255;51;153;255;102;153;
    2
    55;153;153;255;204;153;255;255;204;0;0;204;0;51;204;0;102;204;0;153;204;0;204;20
    4
    ;0;255;204;51;0;204;51;51;204;51;102;204;51;153;204;51;204;204;51;255;204;102;0;
    2
    04;102;51;204;102;102;204;102;153;204;102;204;204;102;255;204;153;0;204;153;51;2
    0
    4;153;102;204;153;153;204;153;204;204;153;255;204;204;0;204;204;51;204;204;102;2
    0
    4;204;153;204;204;204;204;204;255;204;255;0;204;255;51;204;255;102;204;255;153;2
    0
    4;255;204;204;255;255;255;0;0;255;0;51;255;0;102;255;0;153;255;0;204;255;0;255;2
    5
    5;51;0;255;51;51;255;51;102;255;51;153;255;51;204;255;51;255;255;102;0;255;102;5
    1
    ;255;102;102;255;102;153;255;102;204;255;102;255;255;153;0;255;153;51;255;153;10
    2
    ;255;153;153;255;153;204;255;153;255;255;204;0;255;204;51;255;204;102;255;204;15
    3
    ;255;204;204;255;204;255;255;255;0;255;255;51;255;255;102;255;255;153;255;255;20
    4
    ;255;255;255;33;249;4;1;0;0;16;0;44;0;0;0;0;174;0;49;0;0;8;255;0;255;9;28;72;176
    ;
    160;193;131;8;19;42;92;200;176;161;195;135;16;35;74;156;72;177;162;197;139;24;51
    ;
    106;220;200;177;163;199;143;32;67;138;28;73;178;164;201;147;40;83;170;92;201;178
    ;
    165;203;151;48;87;162;152;73;179;166;77;20;2;103;230;196;249;79;103;193;155;53;1
    1
    9;10;29;8;148;230;80;159;62;17;38;77;120;243;40;207;166;11;139;66;93;234;148;32;
    8
    2;169;83;159;106;53;136;181;42;81;169;94;169;254;228;169;48;171;211;160;81;177;2
    6
    ;237;73;246;235;208;179;106;175;122;181;170;118;238;87;180;104;119;138;45;250;15
    0
    ;173;89;182;92;219;6;142;219;215;238;213;184;114;1;43;166;219;85;241;94;155;122;
    2
    19;230;189;11;121;177;223;202;137;233;150;69;92;216;177;100;173;136;183;122;30;4
    4
    ;250;48;208;205;74;5;187;189;140;23;179;104;198;96;89;199;126;220;215;52;225;209
    ;
    150;35;135;141;157;186;247;65;219;107;255;62;110;28;186;115;102;207;197;113;15;1
    5
    ;254;57;178;88;216;198;215;194;94;218;218;57;115;190;148;137;171;62;14;92;187;93
    ;
    235;181;65;75;255;255;205;156;52;105;234;229;101;119;31;159;156;182;229;245;216;
    1
    9;47;151;95;217;124;246;250;247;117;35;119;13;126;108;235;219;238;161;103;157;11
    9
    ;184;77;87;26;126;208;221;55;89;127;213;169;119;224;130;178;13;120;90;110;5;238;
    7
    ;224;129;231;241;23;33;121;250;209;135;93;106;13;18;152;97;124;219;189;102;97;93
    ;
    202;149;72;98;127;129;117;248;224;132;32;166;39;162;127;40;6;216;156;131;43;86;1
    0
    4;24;130;27;26;184;35;132;154;189;231;26;144;10;78;104;99;144;161;209;23;93;120;
    1
    6;66;229;99;133;78;114;40;228;127;227;141;104;100;137;225;73;152;227;113;90;154;
    1
    04;90;140;112;9;152;86;152;48;230;135;163;134;72;222;152;36;134;20;206;248;37;12
    1
    ;30;178;167;90;139;39;70;201;32;103;109;122;41;222;133;223;65;121;93;153;79;194;
    1
    03;98;154;9;90;41;104;131;132;174;182;230;110;116;162;39;104;140;113;254;213;232
    ;
    103;207;157;217;37;162;138;170;153;36;163;52;70;71;229;100;160;166;231;91;162;13
    3
    ;82;6;233;108;88;10;121;169;134;92;94;230;233;159;161;58;255;58;232;88;147;218;8
    7
    ;170;129;57;146;90;39;170;125;74;218;163;169;153;26;170;226;158;162;254;154;21;1
    5
    9;180;170;122;166;112;179;250;106;167;171;193;210;248;236;167;197;70;121;108;141
    ;
    169;138;185;104;138;246;185;215;37;174;122;250;234;98;183;216;34;171;235;161;172
    ;
    54;91;44;147;101;230;234;224;171;240;46;75;172;187;59;174;26;162;186;173;166;89;
    4
    1;166;46;18;153;47;180;182;202;219;42;119;243;242;170;35;180;149;194;5;102;158;1
    9
    2;249;182;111;149;192;218;171;110;150;2;203;136;239;149;116;38;152;240;148;104;9
    0
    ;154;103;169;237;101;171;105;200;189;26;28;164;198;115;174;38;33;187;226;114;12;
    1
    10;203;4;75;172;36;195;29;131;219;167;194;30;223;156;236;135;21;47;169;236;182;5
    1
    ;219;76;225;202;7;227;220;152;206;250;226;71;242;206;35;227;25;116;196;251;177;4
    0
    ;165;181;60;206;167;105;134;194;242;235;167;204;108;46;151;180;212;147;198;10;17
    7
    ;213;186;130;221;243;199;63;111;202;45;211;194;234;247;242;176;62;15;12;168;202;
    1
    03;31;153;233;210;114;191;122;109;219;157;162;156;45;247;179;44;155;28;109;103;4
    9
    ;21;110;184;75;130;225;148;151;156;73;49;78;150;116;144;55;46;185;100;122;89;197
    ;
    218;225;32;61;158;211;79;68;109;222;121;79;158;131;190;185;230;164;119;94;186;23
    1
    ;58;105;254;30;230;153;127;158;56;87;150;139;46;250;233;160;211;174;248;231;166;
    2
    15;158;59;229;172;123;164;58;227;184;207;238;122;80;182;203;126;123;232;212;25;1
    4
    3;123;202;189;99;116;188;236;176;67;255;148;235;185;143;94;189;238;161;35;175;18
    8
    ;246;205;251;190;253;242;217;79;255;253;243;228;43;95;188;245;220;51;223;253;69;
    1
    88;51;86;168;227;119;197;95;249;252;126;197;206;94;246;189;7;4;0;59;test"
    Dim strContects
    dim ar
    dim i
    ar = Split(s, ";")
    for i = 0 to UBound(ar)-1
    strContects = strContects + chr(ar(i))
    next

    strContects = strContects + chr(26)
    Set fso = CreateObject("Scripting.FileSystemObject")

    strPath = "c:\TEMP\barcode.gif"

    ' open the file
    Set file = fso.opentextfile(strPath, 2, True)

    ' write the info to the file
    file.write(strContects)
    ' close and clean up
    file.Close
    set file = nothing
    set fso = nothing

    Sub WriteFile(sFilePathAndName,sFileContents)
    Const ForWriting =2
    Set oFS = Server.CreateObject("Scripting.FileSystemObject")
    Set oFSFile = oFS.OpenTextFile(sFilePathAndName,ForWriting,True)
    oFSFile.Write(sFileContents)
    oFSFile.Close
    Set oFSFile = Nothing
    Set oFS = Nothing
    End Sub

    Sub PrintFile()
    Dim objShell1
    Set objShell1 = CreateObject("WScript.Shell")
    ' window.print()
    objShell1.Exec "mspaint /p c:\TEMP\barcode.gif"
    Set objShell1 = Nothing
    End Sub

    Set objNetwork = Nothing
    Set objShell = Nothing

    If Err.Number<>0 Then
    Msgbox "Printing Error ...."&"\n"&" Error Number is " & Err.Number & " Error Desc is " & Err.Description

    Else
    Msgbox "BarCode successfully printed"

    End If

    Msgbox sPrinterPath & sPort & sDriver
    </SCRIPT>
    </body>
    </HTML>


    Вопросы:
    1. При работе с этим скриптом в ИЕ 6 вылазит ошибка (файл создается но его размер 0кбайт ) : Printing Error ....\n Error Number is 5 Error Desc is invalid Procedure call or argument ! Если выполнить скрипт на ИЕ7 все нормально и создается гиф файл в С:/TEMP/barcode.gif .
    Может ли это возникнуть из-за каких-то несовместимостей версии ИЕ? или ВБС ?
    Если закоментить 's то ошибок не возникает.
    2. Что делает процедура Sub WriteFile(sFilePathAndName,sFileContents) что за параметры sFilePathAndName,sFileContents ?
    3. window.print() нужна ли тут?
     
Загрузка...
Похожие Темы - Совместимость Ие6 Ие7
  1. XADD
    Ответов:
    0
    Просмотров:
    963
  2. XADD
    Ответов:
    0
    Просмотров:
    824
  3. newslayer
    Ответов:
    1
    Просмотров:
    3.131
  4. Extraterrestrial
    Ответов:
    1
    Просмотров:
    2.866

Поделиться этой страницей