Jump to content

Recommended Posts

I would like to perform the Auto-fill on IE. but when I use _IEFormGetCollection(), it just returns 30 forms, but all name is "0". Now I want to get the handle for the form and filled into the data, What should I do for the next step. the below forum is for returning the quantity and form. name, and the attached files is for what I want to fill in, and the HTML source code.

$oForms = _IEFormGetCollection($oIE)
MsgBox(0,"",@extended)
For $oForm In $oForms
    MsgBox(0,"",$oForm.name)
Next

 Desktop.rar

Edited by yjing1982
Link to post
Share on other sites

I would like to perform the Auto-fill on IE. but when I use _IEFormGetCollection(), it just returns 30 forms, but all name is "0". Now I want to get the handle for the form and filled into the data, What should I do for the next step. the below forum is for returning the quantity and form. name, and the attached files is for what I want to fill in, and the HTML source code.

$oForms = _IEFormGetCollection($oIE)
MsgBox(0,"",@extended)
For $oForm In $oForms
    MsgBox(0,"",$oForm.name)
Next

 Desktop.rar

parts of  the source code

 
<style> 
INPUT { BACKGROUND: #ffffff; BORDER-BOTTOM: #305B8B 1px solid; BORDER-LEFT: #305B8B 1px solid; BORDER-RIGHT: #305B8B 1px solid; BORDER-TOP: #305B8B 1px solid; COLOR: #305B8B; FONT-SIZE: 12px; HEIGHT: 20px; PADDING-TOP: 3px}
A {
    COLOR: #000000; TEXT-DECORATION: underline
}
A:hover {
    TEXT-DECORATION: none
}
body { 
SCROLLBAR-FACE-COLOR: #396DA5; SCROLLBAR-HIGHLIGHT-COLOR: #305B8B; 
SCROLLBAR-SHADOW-COLOR: #799AE1; SCROLLBAR-DARKSHADOW-COLOR: #799AE1; 
SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #FFFFFF;
SCROLLBAR-TRACK-COLOR: #FFFFFF;
}
SELECT {
    BORDER-RIGHT: 0.2em groove; BORDER-TOP: 0.2em groove; FONT-SIZE: 0.7em; BORDER-LEFT: 0.2em groove; BORDER-BOTTOM: 0.2em groove; FONT-FAMILY: tahoma,verdana,geneva,sans-serif
}
a.INPUT { }
</style>
<html>
<head>
<title>Magnum2x</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style> 
INPUT.text { BACKGROUND: #ffe0b3; BORDER-BOTTOM: #af6700 1px solid; BORDER-LEFT: #af6700 1px solid; BORDER-RIGHT: #af6700 1px solid; BORDER-TOP: #af6700 1px solid; COLOR: #af6700; FONT-SIZE: 12px; HEIGHT: 18px; PADDING-TOP: 3px}
INPUT.ipDisableStyle { BACKGROUND: #f5f5f5; BORDER-BOTTOM: #a9a9a9 1px solid; BORDER-LEFT: #a9a9a9 1px solid; BORDER-RIGHT: #a9a9a9 1px solid; BORDER-TOP: #a9a9a9 1px solid; COLOR: #af6700; FONT-SIZE: 12px; HEIGHT: 18px; PADDING-TOP: 3px}
.button1 {
    BORDER-RIGHT: #af6700 1px solid; BORDER-TOP: #ffd16e 1px solid; FONT-SIZE: 12px; BACKGROUND: #ff9600; BORDER-LEFT: #ffd16e 1px solid; COLOR: #964700; PADDING-TOP: 3px; BORDER-BOTTOM: #af6700 1px solid; HEIGHT: 21px
}
.button
    {
        border-right: #af6700 1px solid;
        padding-right: 2px;
        border-top: #af6700 1px solid;
        padding-left: 2px;
        font-size: 12px;
        FILTER: progid:DXImageTransform.Microsoft.Gradient(GradientType=0, StartColorStr=#ffe4e1, EndColorStr=#ff8c00);
        border-left: #af6700 1px solid;
        cursor: hand;
        color: #964700; 
        padding-top: 2px;
        border-bottom: #af6700 1px solid;
    }
SELECT.stext { BACKGROUND: #ffe0b3; BORDER-BOTTOM: #af6700 1px solid; BORDER-LEFT: #af6700 1px solid; BORDER-RIGHT: #af6700 1px solid; BORDER-TOP: #af6700 1px solid; COLOR: #af6700; FONT-SIZE: 12px; HEIGHT: 18px; PADDING-TOP: 3px}
.DisabledTextarea{
    border:1px solid #999;
    width: 226px;
    FONT-SIZE: 12px; 
    SCROLLBAR-FACE-COLOR: #a9a9a9;
    SCROLLBAR-HIGHLIGHT-COLOR: #a9a9a9;
    SCROLLBAR-ARROW-COLOR: #a9a9a9;
}
</style>
</head>
 
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" align="center" border="0" bgcolor="black" cellspacing="1" cellpadding="3" name="PM SHEET" style="font-size:9pt">
  <tr bgcolor="#FFFFFF"> 
    <td colspan="4" style="font-size:10pt"> <b><font color="#FF0000">PM SHEET 
      (Magnum2x)</font></b> </td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="4"><font color="#0000FF">YEAR 2015</font></td>
  </tr>
  <tr align="center"  bgcolor="#dddddd"> 
    <td><strong>MODEL</strong></td>
    <td><strong>SERIAL NO</strong></td>
    <td><strong>INSTALL DATE</strong></td>
    <td><strong>MACHINE NO</strong></td>
  </tr>
  <tr align="center" bgcolor="#FFFFFF"> 
    
    <td>Magnum 2X</td>
    <td>847108</td>
    <td>2013-1-18</td>
    <td>TS-MAG-010</td>
    
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="4">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td colspan="4">
    
         
      <p><font color="#0000FF">
       
           WEEKLY
        <br>
       
          N/A
          
       
       </font>
      </p>
      <p>
      
      </p>
      
     
         
      <p><font color="#0000FF">
       
           A.MONTHLY
        <br>
       
       &nbsp;&nbsp;1..Air filter cleaning<br>
       
       &nbsp;&nbsp;2.System critical files backup to server<br>
       
       &nbsp;&nbsp;3.Run systemdiag<br>
       
       &nbsp;&nbsp;4.Run Voltage calibration / verification<br>
       
       &nbsp;&nbsp;5..ESD check between tester shell and facility GND less than 10ohm<br>
       
       &nbsp;&nbsp;6.Inspect if there is any broken,loosen,stuck pogo pins, replace bad one<br>
       
       &nbsp;&nbsp;7.Input EPM system <br>
              
      <table border="0" width="100%"  bgcolor="black" cellspacing="1" cellpadding="3" style="font-size:9pt">
        <tr align="center" bgcolor="#CCCCCC"> 
          <td></td>
          <td><b>ITEM</b></td>
          <td><b>PMDATE</b></td>
          <td><b>SCHEDULED DATE</b></td>
          <td><b>RESULTS</b></td>
          <td><b>ACTION</b></td>
          <td><b>PM SORT</b></td>
          <td><b>CAL.DATA</b></td>
          <td><b>REMARK</b></td>
          <td><b>RESPONSIBILITY</b></td>
          <td><b>EFFECTIVE DATE</b></td>
        </tr>
 
        <form action="GroupCheck.asp" method="post">
        <input type="hidden" value="3650" name="machineId"> 
        <input type="hidden" value="7" name="itemCount">
        <input type="hidden" value="1" name="itemType">
        <input type="hidden" value="TS-MAG-010" name="machineno">
        <input type="hidden" value="14230" name="scheduleId">
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <td rowspan="7"><font color="red"> 
              
              M1
              </font></td>
            
            <td rowspan="7"> 
              
              <input type="SUBMIT" class="button" value="SUBMIT101" name="SUBMIT"> 
              <a name="#1"></a><input type="hidden" value="1" name="z_id">
              <input type="hidden" value="627970" name="check_id"> <input type="hidden" value="1" name="type_id"> 
              <input type="hidden" value="3650" name="id"> <input type="hidden" value="271" name="pid"><input type="hidden" value="1" name="frequency"> 
              <input type="hidden" value="Magnum2x" name="pmtype"><input type="hidden" value="mod" name="upType"> </td>
            
            <td rowspan="7">
              <input type="text" value="2015-1-16" class="text" size="8" name="pmdate" readonly>
            </td>
            <td rowspan="7">             
              2015-1-16
              <input type="hidden" value="2015-1-16" class="text" size="8" name="scheduled_date">
            </td>
            
            <input type="hidden" value="627970" name="historyPMId1">
            <input type="hidden" value="1" name="itemNo1">
            <td><font color="#0000FF">1</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results1"></td>
            <td><textarea name="action1" cols="30" rows="2" wrap="VIRTUAL" class="text" >cleaned</textarea></td>
            <td>
                <select name="selectCalibrationSort1" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark1" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility1"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="627971" name="historyPMId2">
            <input type="hidden" value="2" name="itemNo2">
            <td><font color="#0000FF">2</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results2"></td>
            <td><textarea name="action2" cols="30" rows="2" wrap="VIRTUAL" class="text" >backup</textarea></td>
            <td>
                <select name="selectCalibrationSort2" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark2" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility2"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="627972" name="historyPMId3">
            <input type="hidden" value="3" name="itemNo3">
            <td><font color="#0000FF">3</font>&nbsp;<input type="text" value="pass" class="text" size="24" name="results3"></td>
            <td><textarea name="action3" cols="30" rows="2" wrap="VIRTUAL" class="text" >Run systemdiag
</textarea></td>
            <td>
                <select name="selectCalibrationSort3" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark3" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility3"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="627973" name="historyPMId4">
            <input type="hidden" value="4" name="itemNo4">
            <td><font color="#0000FF">4</font>&nbsp;<input type="text" value="pass" class="text" size="24" name="results4"></td>
            <td><textarea name="action4" cols="30" rows="2" wrap="VIRTUAL" class="text" >Run Voltage calibration / verification
</textarea></td>
            <td>
                <select name="selectCalibrationSort4" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark4" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility4"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="627974" name="historyPMId5">
            <input type="hidden" value="5" name="itemNo5">
            <td><font color="#0000FF">5</font>&nbsp;<input type="text" value="1.2ohm" class="text" size="24" name="results5"></td>
            <td><textarea name="action5" cols="30" rows="2" wrap="VIRTUAL" class="text" >checked</textarea></td>
            <td>
                <select name="selectCalibrationSort5" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark5" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility5"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="627975" name="historyPMId6">
            <input type="hidden" value="6" name="itemNo6">
            <td><font color="#0000FF">6</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results6"></td>
            <td><textarea name="action6" cols="30" rows="2" wrap="VIRTUAL" class="text" >inspected</textarea></td>
            <td>
                <select name="selectCalibrationSort6" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark6" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility6"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="627976" name="historyPMId7">
            <input type="hidden" value="7" name="itemNo7">
            <td><font color="#0000FF">7</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results7"></td>
            <td><textarea name="action7" cols="30" rows="2" wrap="VIRTUAL" class="text" >input</textarea></td>
            <td>
                <select name="selectCalibrationSort7" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark7" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility7"></td>
            <td>2012-10-16</td>
          </tr>
        
        
        </form>

--------------------------------------------------------------------------------------------------------------------------------------------------

       B.QUARTERLY
        <br>
       
       &nbsp;&nbsp;1.DC power supply voltage measure and adjust<br>
       
       &nbsp;&nbsp;2.Run voltage calibration/verification<br>
       
       &nbsp;&nbsp;3.Run timing calibration/verification<br>
       
       &nbsp;&nbsp;4.Run TDR calibration for DUT board <br>
              
      <table border="0" width="100%"  bgcolor="black" cellspacing="1" cellpadding="3" style="font-size:9pt">
        <tr align="center" bgcolor="#CCCCCC"> 
          <td></td>
          <td><b>ITEM</b></td>
          <td><b>PMDATE</b></td>
          <td><b>SCHEDULED DATE</b></td>
          <td><b>RESULTS</b></td>
          <td><b>ACTION</b></td>
          <td><b>PM SORT</b></td>
          <td><b>CAL.DATA</b></td>
          <td><b>REMARK</b></td>
          <td><b>RESPONSIBILITY</b></td>
          <td><b>EFFECTIVE DATE</b></td>
        </tr>
 
        <form action="GroupCheck.asp" method="post">
        <input type="hidden" value="3650" name="machineId"> 
        <input type="hidden" value="4" name="itemCount">
        <input type="hidden" value="2" name="itemType">
        <input type="hidden" value="TS-MAG-010" name="machineno">
        <input type="hidden" value="14230" name="scheduleId">
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <td rowspan="4"><font color="red"> 
              
              Q1
              </font></td>
            
            <td rowspan="4"> 
              
              <input type="SUBMIT" class="button" value="SUBMIT201" name="SUBMIT"> 
              <a name="#92"></a><input type="hidden" value="92" name="z_id">
              <input type="hidden" value="668548" name="check_id"> <input type="hidden" value="2" name="type_id"> 
              <input type="hidden" value="3650" name="id"> <input type="hidden" value="271" name="pid"><input type="hidden" value="1" name="frequency"> 
              <input type="hidden" value="Magnum2x" name="pmtype"><input type="hidden" value="mod" name="upType"> </td>
            
            <td rowspan="4">
              <input type="text" value="2015-3-29" class="text" size="8" name="pmdate" readonly>
            </td>
            <td rowspan="4">             
              2015-3-29
              <input type="hidden" value="2015-3-29" class="text" size="8" name="scheduled_date">
            </td>
            
            <input type="hidden" value="668548" name="historyPMId1">
            <input type="hidden" value="1" name="itemNo1">
            <td><font color="#0000FF">1</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results1"></td>
            <td><textarea name="action1" cols="30" rows="2" wrap="VIRTUAL" class="text" >measure and adjust
</textarea></td>
            <td>
                <select name="selectCalibrationSort1" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark1" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility1"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="668549" name="historyPMId2">
            <input type="hidden" value="2" name="itemNo2">
            <td><font color="#0000FF">2</font>&nbsp;<input type="text" value="pass" class="text" size="24" name="results2"></td>
            <td><textarea name="action2" cols="30" rows="2" wrap="VIRTUAL" class="text" >Run voltage calibration/verification</textarea></td>
            <td>
                <select name="selectCalibrationSort2" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark2" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility2"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="668550" name="historyPMId3">
            <input type="hidden" value="3" name="itemNo3">
            <td><font color="#0000FF">3</font>&nbsp;<input type="text" value="pass" class="text" size="24" name="results3"></td>
            <td><textarea name="action3" cols="30" rows="2" wrap="VIRTUAL" class="text" >Run timing calibration/verification</textarea></td>
            <td>
                <select name="selectCalibrationSort3" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark3" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility3"></td>
            <td>2012-10-16</td>
          </tr>
        
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <input type="hidden" value="668551" name="historyPMId4">
            <input type="hidden" value="4" name="itemNo4">
            <td><font color="#0000FF">4</font>&nbsp;<input type="text" value="pass" class="text" size="24" name="results4"></td>
            <td><textarea name="action4" cols="30" rows="2" wrap="VIRTUAL" class="text" >Run TDR calibration</textarea></td>
            <td>
                <select name="selectCalibrationSort4" class="stext" >
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                N/A
            
            </td>
            <td><input type="text" value="" class="text" size="12" name="remark4" ></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility4"></td>
            <td>2012-10-16</td>
          </tr>
        
        
        </form>
        
        <form action="GroupCheck.asp" method="post">
        <input type="hidden" value="3650" name="machineId"> 
        <input type="hidden" value="4" name="itemCount">
        <input type="hidden" value="2" name="itemType">
        <input type="hidden" value="TS-MAG-010" name="machineno">
        <input type="hidden" value="14230" name="scheduleId">
        --------------------------------------------------------------------------------------------------------------------------------

   E.Post PM Check

  <br>

  

  &nbsp;&nbsp;1.Post PM check for data validation<br>

    

      <table border="0" width="100%"  bgcolor="black" cellspacing="1" cellpadding="3" style="font-size:9pt">

        <tr align="center" bgcolor="#CCCCCC"> 

          <td></td>

          <td><b>ITEM</b></td>

          <td><b>PMDATE</b></td>

          <td><b>SCHEDULED DATE</b></td>

          <td><b>RESULTS</b></td>

          <td><b>ACTION</b></td>

          <td><b>PM SORT</b></td>

          <td><b>CAL.DATA</b></td>

          <td><b>REMARK</b></td>

          <td><b>RESPONSIBILITY</b></td>

          <td><b>EFFECTIVE DATE</b></td>

        </tr>

 

        <form action="GroupCheck.asp" method="post">

        <input type="hidden" value="3650" name="machineId"> 

        <input type="hidden" value="1" name="itemCount">

        <input type="hidden" value="5" name="itemType">

        <input type="hidden" value="TS-MAG-010" name="machineno">

        <input type="hidden" value="14230" name="scheduleId">

        

            

          <tr align="center" bgcolor="#E8E8E8"> 

            

            <td rowspan="1"><font color="red"> 

              

              M1

              </font></td>

            

            <td rowspan="1"> 

              

              <input type="SUBMIT" class="button" value="SUBMIT501" name="SUBMIT"> 

              <a name="#108"></a><input type="hidden" value="108" name="z_id">

              <input type="hidden" value="627977" name="check_id"> <input type="hidden" value="5" name="type_id"> 

              <input type="hidden" value="3650" name="id"> <input type="hidden" value="271" name="pid"><input type="hidden" value="1" name="frequency"> 

              <input type="hidden" value="Magnum2x" name="pmtype"><input type="hidden" value="mod" name="upType"> </td>

            

            <td rowspan="1">

              <input type="text" value="2015-1-16" class="text" size="8" name="pmdate" readonly>

            </td>

            <td rowspan="1">             

              2015-1-16

              <input type="hidden" value="2015-1-16" class="text" size="8" name="scheduled_date">

            </td>

            

            <input type="hidden" value="627977" name="historyPMId1">

            <input type="hidden" value="1" name="itemNo1">

            <td><font color="#0000FF">1</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results1"></td>

            <td><textarea name="action1" cols="30" rows="2" wrap="VIRTUAL" class="DisabledTextarea" disabled>N/A</textarea></td>

            <td>

                <select name="selectCalibrationSort1" class="stext" disabled>

                    <option value="0" >--SELECT--</option>

                    <option value="1" selected>Normal PM item</option>

                    <option value="2" >Calibrate PM item</option>

                </select>

            </td>

            <td>

            

                <font color="#a9a9a9">N/A</font>

            

            </td>

            <td><input type="text" value="N/A" class="ipDisableStyle" size="12" name="remark1" disabled></td>

            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility1"></td>

            <td>2012-10-16</td>

          </tr>

        

        

        </form>

        E.Post PM Check
           <br>
       
       &nbsp;&nbsp;1.Post PM check for data validation<br>
              
      <table border="0" width="100%"  bgcolor="black" cellspacing="1" cellpadding="3" style="font-size:9pt">
        <tr align="center" bgcolor="#CCCCCC"> 
          <td></td>
          <td><b>ITEM</b></td>
          <td><b>PMDATE</b></td>
          <td><b>SCHEDULED DATE</b></td>
          <td><b>RESULTS</b></td>
          <td><b>ACTION</b></td>
          <td><b>PM SORT</b></td>
          <td><b>CAL.DATA</b></td>
          <td><b>REMARK</b></td>
          <td><b>RESPONSIBILITY</b></td>
          <td><b>EFFECTIVE DATE</b></td>
        </tr>
 
        <form action="GroupCheck.asp" method="post">
        <input type="hidden" value="3650" name="machineId"> 
        <input type="hidden" value="1" name="itemCount">
        <input type="hidden" value="5" name="itemType">
        <input type="hidden" value="TS-MAG-010" name="machineno">
        <input type="hidden" value="14230" name="scheduleId">
        
            
          <tr align="center" bgcolor="#E8E8E8"> 
            
            <td rowspan="1"><font color="red"> 
              
              M1
              </font></td>
            
            <td rowspan="1"> 
              
              <input type="SUBMIT" class="button" value="SUBMIT501" name="SUBMIT"> 
              <a name="#108"></a><input type="hidden" value="108" name="z_id">
              <input type="hidden" value="627977" name="check_id"> <input type="hidden" value="5" name="type_id"> 
              <input type="hidden" value="3650" name="id"> <input type="hidden" value="271" name="pid"><input type="hidden" value="1" name="frequency"> 
              <input type="hidden" value="Magnum2x" name="pmtype"><input type="hidden" value="mod" name="upType"> </td>
            
            <td rowspan="1">
              <input type="text" value="2015-1-16" class="text" size="8" name="pmdate" readonly>
            </td>
            <td rowspan="1">             
              2015-1-16
              <input type="hidden" value="2015-1-16" class="text" size="8" name="scheduled_date">
            </td>
            
            <input type="hidden" value="627977" name="historyPMId1">
            <input type="hidden" value="1" name="itemNo1">
            <td><font color="#0000FF">1</font>&nbsp;<input type="text" value="ok" class="text" size="24" name="results1"></td>
            <td><textarea name="action1" cols="30" rows="2" wrap="VIRTUAL" class="DisabledTextarea" disabled>N/A</textarea></td>
            <td>
                <select name="selectCalibrationSort1" class="stext" disabled>
                    <option value="0" >--SELECT--</option>
                    <option value="1" selected>Normal PM item</option>
                    <option value="2" >Calibrate PM item</option>
                </select>
            </td>
            <td>
            
                <font color="#a9a9a9">N/A</font>
            
            </td>
            <td><input type="text" value="N/A" class="ipDisableStyle" size="12" name="remark1" disabled></td>
            <td><input type="text" value="yjing1982" class="text" size="16" name="responsibility1"></td>
            <td>2012-10-16</td>
          </tr>
        
        
        </form>

Link to post
Share on other sites
  • 2 weeks later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • By Hermes
      Hi, I have a site that has the following elements below: 
      <div>More element here</div> <div>More element here</div> <div>More element here</div> When I do this in Auto It:
      Local $oSelectDiv = _WD_FindElement($sSession, $_WD_LOCATOR_ByCSSSelector, "div") _WD_HighlightElement($sSession, $oSelectDiv, 1) I also tried to add [3], but it doesnt seems to work:
      Local $oSelectDiv = _WD_FindElement($sSession, $_WD_LOCATOR_ByCSSSelector, "div[3]") _WD_HighlightElement($sSession, $oSelectDiv, 1) It always highlight the first one, but I am trying to highlight the 3rd in the list. Is there anyway to select the 3rd div without having to add any class/id in the divs, and without using XPATH? The structure of the elements in that site were built that way.
    • By Pured
      I am looking to create a script which refreshes/reads a webpage every few seconds. My goal is to see if the page has changed, then I will send myself a notification that the webpage has been updated.
       
      However, rather than downloading the entire webpage every single time, is there a way to check when the webpage last updated?
       
      If not, is there away to partially download/read html source until a specific tag is hit?
       
      Goal: I would like to increase my poll rate and not excessively waste data.
    • By Mr_Microphone
      Alright, I may be an idiot.
      Three years ago, I wrote a program that pushed component information to a secure site via their API. I went back to add some attributes and (here's the idiot part) ended up losing the  source code and my modified code does not quite work. I have the compiled version that works minus the new attributes, so I know that their system has not changed. I stripped the larger program down from 3,000 lines to the part that is broken, but I am stumped. This was one of my first scripts, so it heavily leverages examples and isn't as pretty as I'd like it to be.
      Be gentle. 
      The program / script creates a new records as expected, but for some reason, I cannot access information in the response, which I need for a later step.
      I use Charles, a web debugging proxy tool so I can see the request and the response and both are as expected. Also, when I write to log file, the JSON reply is exactly what I expect and need, but when I try to do anything with the http body, it seems to be blank. 
      Here is the script minus  the URL and token:
      #include <Array.au3> #include <Curl.au3> #include <MsgBoxConstants.au3> #include <json.au3>  ; this was added as an alternate way to read the data Global $WM_serial_number = "WM20745001" Global $wm_component_status_id = "10" Global $wm_manufacturer ="Multi-Tech" Global $wm_model = "MTR-LAT1-B07" Global $cellular_carrier_id = "3" Global $iccid_esn = "89010303300012345678" Global $ip_address = "192.168.2.11" Global $NewIDNumber     Local $Curl = Curl_Easy_Init()     Local $Html = $Curl ; any number as identify     Local $Header = $Curl + 1 ; any number as identify     Local $HtmlFile = "cURL_Request.html"     Local $File = FileOpen($HtmlFile, 2 + 16)     Local $Slist = Curl_Slist_Append(0, "content-type: multipart/form-data; boundary=---011000010111000001101001")     $Slist = Curl_Slist_Append($Slist, "authorization: Token token=" & $Token)     Curl_Easy_Setopt($Curl, $CURLOPT_PROXY, "127.0.0.1") ; needed to use Charles web debugging proxy     Curl_Easy_Setopt($Curl, $CURLOPT_PROXYPORT, 8888) ; needed to use Charles     Curl_Easy_Setopt($Curl, $CURLOPT_HTTPHEADER, $Slist) ;     Curl_Easy_Setopt($Curl, $CURLOPT_URL, $Server & "wireless_module" & "s")     Curl_Easy_Setopt($Curl, $CURLOPT_SSL_VERIFYPEER, 0)     Curl_Easy_Setopt($Curl, $CURLOPT_TIMEOUT, 30)     Curl_Easy_Setopt($Curl, $CURLOPT_WRITEDATA, $Html)     Curl_Easy_Setopt($Curl, $CURLOPT_WRITEFUNCTION, Curl_FileWriteCallback())     Curl_Easy_Setopt($Curl, $CURLOPT_WRITEDATA, $File)     Local $HttpPost = ""     Local $LastItem = ""         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[serial_number]", $CURLFORM_COPYCONTENTS, $WM_serial_number, $CURLFORM_END)         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[component_status_id]", $CURLFORM_COPYCONTENTS, $wm_component_status_id, $CURLFORM_END)         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[manufacturer]", $CURLFORM_COPYCONTENTS, $wm_manufacturer, $CURLFORM_END)         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[model]", $CURLFORM_COPYCONTENTS, $wm_model, $CURLFORM_END)         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[cellular_carrier_id]", $CURLFORM_COPYCONTENTS, $cellular_carrier_id, $CURLFORM_END)         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[iccid_esn]", $CURLFORM_COPYCONTENTS, $iccid_esn, $CURLFORM_END)         Curl_FormAdd($HttpPost, $LastItem, $CURLFORM_COPYNAME, "wireless_module" & "[ip_address]", $CURLFORM_COPYCONTENTS, $ip_address, $CURLFORM_END)         ; submit         Curl_Easy_Setopt($Curl, $CURLOPT_HTTPPOST, $HttpPost)         Local $Code = Curl_Easy_Perform($Curl)         If $Code = $CURLE_OK Then         ConsoleWrite("Content Type: " & Curl_Easy_GetInfo($Curl, $CURLINFO_CONTENT_TYPE) & @LF)         ConsoleWrite("Download Size: " & Curl_Easy_GetInfo($Curl, $CURLINFO_SIZE_DOWNLOAD) & @LF)         MsgBox(0, 'Html', BinaryToString(Curl_Data_Get($Html))) ; this is something I threw in for debugging, expecting to see SOMETHING. Returns nothing         MsgBox(0, 'Header', BinaryToString(Curl_Data_Get($Header))) ; this is something I threw in for debugging, expecting to see SOMETHING. Returns nothing         Local $response = Curl_Easy_GetInfo($Curl, $CURLINFO_RESPONSE_CODE)             If $response = "409" Then $response = "Failed due to a conflict."             If $response = "200" Then $response = "Was NOT created."             If $response = "201" Then $response = "Was created."             ; read the ID that was assigned and store it         $NewIDNumber = StringRight(StringLeft(BinaryToString(Curl_Data_Get($Html)), 10), 4) ; this DID work, but now it doesn't. An old compiled version still works ;~         Global $JsonObject = json_decode($Html); another debugging attempt. Did not use json functions previously and the program worked without it. ;~         Global $NewIDNumber = json_get($JsonObject, '.id')         ConsoleWrite(@CRLF &'! id:' & $NewIDNumber & @CRLF & @CRLF)    ; debugging feedback         MsgBox(0, $response, $wm_serial_number & " new ID = " & $NewIDNumber); debugging feedback         If $Code <> $CURLE_OK Then ConsoleWrite(Curl_Easy_StrError($Code) & @LF)             Local $Data = BinaryToString(Curl_Data_Get($Curl))             Curl_Easy_Cleanup($Curl)             Curl_Data_Cleanup($Curl)             Curl_Data_Cleanup($Header)             Curl_Data_Cleanup($Html)             Curl_FormFree($HttpPost)             Curl_slist_free_all($Slist)             curl_easy_reset($Curl)             FileClose($File)             ConsoleWrite(@LF)         EndIf  This is the captured request (minus the host and token)
      POST /api/v2/wireless_modules HTTP/1.1 Host: api. Accept: */* authorization: Token token= Content-Length: 942 Expect: 100-continue content-type: multipart/form-data; boundary=---011000010111000001101001; boundary=------------------------9adb0d87c7ea5061 --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[serial_number]" WM20745001 --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[component_status_id]" 10 --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[manufacturer]" Multi-Tech --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[model]" MTR-LAT1-B07 --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[cellular_carrier_id]" 3 --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[iccid_esn]" 89010303300012345678 --------------------------9adb0d87c7ea5061 Content-Disposition: form-data; name="wireless_module[ip_address]" 192.168.2.11 --------------------------9adb0d87c7ea5061-- and the captured response
      HTTP/1.1 201 Created Date: Sun, 04 Apr 2021 00:12:18 GMT Server: Apache Cache-Control: max-age=0, private, must-revalidate Access-Control-Allow-Origin: not-allowed Vary: Accept-Encoding Access-Control-Max-Age: 1728000 X-XSS-Protection: 1; mode=block X-Request-Id: 71cfcf36-6020-48a6-a822-d2b393a27b69 Access-Control-Allow-Credentials: true Access-Control-Allow-Methods: PUT, OPTIONS, GET, POST ETag: W/"25d97fe8a9387cb4b9029a9e62b0bfa2" X-Frame-Options: SAMEORIGIN, SAMEORIGIN X-Runtime: 0.344005 X-Content-Type-Options: nosniff Access-Control-Request-Method: * X-Powered-By: Phusion Passenger 5.2.1 Strict-Transport-Security: max-age=63072000; includeSubDomains; preload Location: /wireless_modules/3195 Status: 201 Created Connection: close Transfer-Encoding: chunked Content-Type: application/json; charset=utf-8 X-Charles-Received-Continue: HTTP/1.1 100 Continue {"id":3195,"model":"MTR-LAT1-B07","serial_number":"WM20745001","manufacturer":"Multi-Tech","mfg_date":null,"iccid_esn":"89010303300012345678","ip_address":"192.168.2.11","purchase_order":null,"supplier":null,"cellular_carrier_id":3,"component_status_id":10,"component_status":{"id":10,"name":"Hold","description":"Available- Held for specific use"},"custom_attributes":[{"name":"Deactivated","type":"Boolean","value":false},{"name":"Port 3001","type":"Boolean","value":false}],"comments":[]}  
      Also attached is the log file. I need to read the id value. Clearly, it is arriving back to cURL, since it is being written out to the log, but I cannot seem to get to it within the code. 
      It is established that I may be an idiot, but this idiot has wasted days in non-billable hours trying to figure out what should be a simple glitch.
      Help???
       
      cURL_Request.html
    • By Hermes
      I have an html table that displays data along with an excel spreadsheet that has the same data as the html table. I am wanting to only match the Title column in my html table with the Title column in my Excel spreadsheet. If the titles match, click on the Edit hyperlink and continue to loop to next row. The issue I'm experience is its not matching correctly. So far  i've written the codes below:
      <table border="1" class="test"> <tr> <th> UniqueID</th> <th> Title</th> <th> UserID</th> <th> Address</th> <th> Gender </th> </tr> <tr> <td> 1 </td> <td> Title1 </td> <td> 12345 </td> <td> Manila </td> <td> <span> Male </span> </td> </tr> <tr> <td align="center" colspan="5"> <a href="#" class="testlink">Edit</a> </td> </tr> <tr> <td> 2 </td> <td> Title2 </td> <td> 67891 </td> <td> Valenzuela </td> <td> <span> Female </span> </td> </tr> <tr> <td align="center" colspan="5" > <a href="#" class="testlink">Edit</a> </td> </tr> <tr> <td> 3 </td> <td> Title3 </td> <td> 88888 </td> <td> Ohio </td> <td> <span> Male </span> </td> </tr> <tr> <td align="center" colspan="5" > <a href="#" class="testlink">Edit</a> </td> </tr> <tr> <td> 4 </td> <td> Title4 </td> <td> 77777 </td> <td> California </td> <td> <span> Female </span> </td> </tr> <tr> <td align="center" colspan="5" > <a href="#" class="testlink">Edit</a> </td> </tr> <tr> <td> 5 </td> <td> Title5 </td> <td> 33333 </td> <td> Arizona </td> <td> <span> Male </span> </td> </tr> <tr> <td align="center" colspan="5" > <a href="#" class="testlink">Edit</a> </td> </tr> </table> #Include "Chrome.au3" #Include "wd_core.au3" #Include "wd_helper.au3" #Include "Excel.au3" #Include "_HtmlTable2Array.au3" #Include "Array.au3" Local $sDesiredCapabilities, $sSession SetupChrome() _WD_Startup() $sSession = _WD_CreateSession($sDesiredCapabilities) _WD_LoadWait($sSession) _WD_Navigate($sSession, "index.html") Sleep(6000) Local $oExcel = _Excel_Open() Local $oWorkbook = _Excel_BookOpen($oExcel, "test.xlsx") ; Get the table element $sElement = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//table[@class='test']") ; Retrieve HTML $sHTML = _WD_ElementAction($sSession, $sElement, "Property", "outerHTML") ;Local $aTable = _HtmlTableGetWriteToArray($sHTML) Local $aArray1 = _Excel_RangeRead($oWorkbook,1,$oWorkbook.ActiveSheet.Usedrange.Columns("B:B")) Local $aArray2 = _HtmlTableGetWriteToArray($sHTML) ;_ArrayDisplay($aArray1) ;_ArrayDisplay($aArray2) For $i = UBound($aArray1) - 1 To 0 step - 1 For $j = UBound($aArray2) - 1 to 0 step - 1 If $aArray1[$i][1] == $aArray2[$j][1] Then _WD_WaitElement($sSession, $_WD_LOCATOR_ByXPath, "//a[contains(@class,'testlink') or contains(text(),'Edit')]") $test1 = _WD_FindElement($sSession, $_WD_LOCATOR_ByXPath, "//a[contains(@class,'testlink') or contains(text(),'Edit')]") _WD_ElementAction($sSession, $test1, 'click') ;_ArrayDisplay($aArray1) ;_ArrayDelete($aArray1 , $i) ;exitloop EndIf Next Next _WD_Shutdown() Func SetupChrome() _WD_Option('Driver', 'chromedriver.exe') _WD_Option('Port', 9515) _WD_Option('DriverParams', '--log-path="' & @ScriptDir & '\chrome.log"') $sDesiredCapabilities = '{"capabilities": {"alwaysMatch": {"goog:chromeOptions": {"w3c": true, "args":["start-maximized","disable-infobars"]}}}}' EndFunc ;==>SetupChrome Would appreciate if anyone can provide tips, or point me in the right direction in doing it.
       
      test.xlsx
    • By mLipok
      In the past there was many questions about how to: "Automatic file upload using without user interaction"

      https://www.autoitscript.com/forum/topic/92907-ie-8-input-namenomfic-typefile-idnomfic/
      https://www.autoitscript.com/forum/topic/116899-cant-automate-input-typefile-tag-in-ie/?tab=comments#comment-815478
      https://www.autoitscript.com/forum/topic/14883-input-typefile/
      https://www.autoitscript.com/forum/topic/188708-how-to-set-the-value-of-an-input-typefile-element/
      https://www.autoitscript.com/forum/topic/91513-how-can-i-auto-set-file-path-for-input-file-in-ie/
      https://www.autoitscript.com/forum/topic/116899-cant-automate-input-typefile-tag-in-ie/
      https://www.autoitscript.com/forum/topic/169190-how-to-script-file-upload-button/
      https://www.autoitscript.com/forum/topic/145327-how-to-deal-with-ie-window-for-upload-a-fileinput-typefile/
      https://www.autoitscript.com/forum/topic/140482-internet-explorer-input-file-problem/
       
      I found solution here: 
      https://stackoverflow.com/questions/33253517/upload-a-file-via-input-input-in-html-form-with-vba
      and:
      https://www.motobit.com/tips/detpg_uploadvbsie/
      And I translate this code to AutoIt3 code:
      ; Upload file using http protocol And multipart/form-data ; v1.01 ; 2001 Antonin Foller, PSTRUH Software Global $oErrorHandler = ObjEvent("AutoIt.Error", _ErrFunc) do_vbsUpload() Func do_vbsUpload() #cs ; We need at least two arguments (File & URL) ConsoleWrite('- ' & @ScriptLineNumber & @CRLF) If $CmdLine[0] < 2 Then InfoEcho() ConsoleWrite('- ' & @ScriptLineNumber & @CRLF) ; Are some required objects missing? If StringInStr(CheckRequirements(), "Error") > 0 Then InfoEcho() ConsoleWrite('- ' & @ScriptLineNumber & @CRLF) Local $s_FileName, $s_DestURL, $s_FieldName $s_FieldName = "FileField" ; Default field name For $i_argCounter = 1 To $CmdLine[0] ConsoleWrite('+ '& $i_argCounter& ' >> ' & $CmdLine[$i_argCounter] & @CRLF) Select Case $i_argCounter = 1 ;~ $s_FileName = $CmdLine[$i_argCounter] $s_FileName = @ScriptFullPath Case $i_argCounter = 2 $s_DestURL = $CmdLine[$i_argCounter] Case $i_argCounter = 3 $s_FieldName = $CmdLine[$i_argCounter] EndSelect Next UploadFile($s_DestURL, $s_FileName, $s_FieldName) #ce UploadFile('http://www.dobeash.com/test.html', @ScriptFullPath, 'fileExample') EndFunc ;==>do_vbsUpload ; ******************* upload - begin ; Upload file using input type=file Func UploadFile($s_DestURL, $s_FileName, $s_FieldName) ; Boundary of fields. ; Be sure this string is Not In the source file Const $Boundary = "---------------------------0123456789012" ; Get source file As a binary data. Local $d_FileContents = GetFile($s_FileName) ; Build multipart/form-data document Local $s_FormData = BuildFormData($d_FileContents, $Boundary, $s_FileName, $s_FieldName) ; Post the data To the destination URL IEPostBinaryRequest($s_DestURL, $s_FormData, $Boundary) EndFunc ;==>UploadFile ; Build multipart/form-data document with file contents And header info Func BuildFormData($d_FileContents, $Boundary, $s_FileName, $s_FieldName) Const $s_ContentType = "application/upload" ; The two parts around file contents In the multipart-form data. Local $s_Pre = "--" & $Boundary & @CRLF & mpFields($s_FieldName, $s_FileName, $s_ContentType) Local $s_Po = @CRLF & "--" & $Boundary & "--" & @CRLF ; Build form data using recordset binary field Const $i_adLongVarBinary = 205 Local $oRS = ObjCreate("ADODB.Recordset") ; https://docs.microsoft.com/en-us/sql/ado/reference/ado-api/append-method-ado?view=sql-server-ver15 $oRS.Fields.Append("b", $i_adLongVarBinary, StringLen($s_Pre) + BinaryLen($d_FileContents) + StringLen($s_Po)) $oRS.Open() $oRS.AddNew() ; Convert Pre string value To a binary data Local $i_LenData = StringLen($s_Pre) $oRS("b").AppendChunk(StringToMB($s_Pre) & StringToBinary(Chr(0))) $s_Pre = $oRS("b").GetChunk($i_LenData) $oRS("b") = "" ; Convert Po string value To a binary data $i_LenData = StringLen($s_Po) $oRS("b").AppendChunk(StringToMB($s_Po) & StringToBinary(Chr(0))) $s_Po = $oRS("b").GetChunk($i_LenData) $oRS("b") = "" ; Join Pre & $d_FileContents & Po binary data $oRS("b").AppendChunk($s_Pre) $oRS("b").AppendChunk($d_FileContents) $oRS("b").AppendChunk($s_Po) $oRS.Update() Local $s_FormData = $oRS("b") $oRS.Close() Return $s_FormData EndFunc ;==>BuildFormData ; sends multipart/form-data To the URL using IE Func IEPostBinaryRequest($s_URL, $s_FormData, $Boundary) ; Create InternetExplorer Local $oIE = ObjCreate("InternetExplorer.Application") ; You can uncoment Next line To see form results $oIE.Visible = True ; Send the form data To $s_URL As POST multipart/form-data request $oIE.Navigate($s_URL, '', '', $s_FormData, _ "Content-Type: multipart/form-data; boundary=" & $Boundary & @CRLF) While $oIE.Busy Wait(1, "Upload To " & $s_URL) WEnd ; Get a result of the script which has received upload ;~ On Error Resume Next Local $s_IE_InnerHTML = $oIE.Document.body.innerHTML MsgBox(0, 'TEST #' & @CRLF & @ScriptLineNumber, $s_IE_InnerHTML) $oIE.Quit() Return $s_IE_InnerHTML EndFunc ;==>IEPostBinaryRequest ; Infrormations In form field header. Func mpFields($s_FieldName, $s_FileName, $s_ContentType) Local $s_MPTemplate = _ ; template For multipart header 'Content-Disposition: form-data; name="{field}";' & _ 'FileName="{file}"' & @CRLF & _ 'Content-Type: {ct}' & @CRLF & @CRLF & _ '' Local $s_Out $s_Out = StringReplace($s_MPTemplate, "{field}", $s_FieldName) $s_Out = StringReplace($s_Out, "{file}", $s_FileName) $s_Out = StringReplace($s_Out, "{ct}", $s_ContentType) Return $s_Out EndFunc ;==>mpFields Func Wait($i_Seconds, $s_Message) MsgBox(64, '', $s_Message, $i_Seconds) EndFunc ;==>Wait ; Returns file contents As a binary data Func GetFile($s_FileName) Local $oStream = ObjCreate("ADODB.Stream") $oStream.Type = 1 ; Binary $oStream.Open() $oStream.LoadFromFile($s_FileName) Local $d_GetFile = $oStream.Read() $oStream.Close() Return $d_GetFile EndFunc ;==>GetFile ; Converts OLE string To multibyte string Func StringToMB($S) Local $I, $B For $I = 1 To StringLen($S) $B &= StringToBinary(Asc(StringMid($S, $I, 1))) Next Return $B EndFunc ;==>StringToMB ; ******************* upload - end ; ******************* Support ; Basic script info Func InfoEcho() Local $sMsg = _ "Upload file using http And multipart/form-data" & @CRLF & _ "Copyright (C) 2001 Antonin Foller, PSTRUH Software" & @CRLF & _ "use" & @CRLF & _ "[cscript|wscript] fupload.vbs file $s_URL [fieldname]" & @CRLF & _ " file ... Local file To upload" & @CRLF & _ " $s_URL ... $s_URL which can accept uploaded data" & @CRLF & _ " fieldname ... Name of the source form field." & @CRLF & _ @CRLF & CheckRequirements() & @CRLF & _ "" ConsoleWrite('! ' & $sMsg & @CRLF) EndFunc ;==>InfoEcho ; Checks If all of required objects are installed Func CheckRequirements() Local $sMsg = _ "This script requires some objects installed To run properly." & @CRLF & _ CheckOneObject("ADODB.Recordset") & @CRLF & _ CheckOneObject("ADODB.Stream") & @CRLF & _ CheckOneObject("InternetExplorer.Application") & @CRLF & _ "" Return $sMsg ; $sMsgBox $sMsg EndFunc ;==>CheckRequirements ; Checks If the one object is installed. Func CheckOneObject($sClassName) Local $sMsg ObjCreate($sClassName) If @error = 0 Then $sMsg = "OK" Else $sMsg = "Error:" & @error EndIf Return $sClassName & " - " & $sMsg EndFunc ;==>CheckOneObject ; ******************* Support - end ; User's COM error function. Will be called if COM error occurs Func _ErrFunc(ByRef $oError) ; Do anything here. ConsoleWrite(@ScriptName & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _ @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _ @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _ @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _ @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _ @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _ @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _ @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _ @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _ @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF) EndFunc ;==>_ErrFunc  
      But I miss something and the code not works as intendend.
      Please join and contribute, in solving this issue, as this will be handy for entire community.
      @mLipok
       
      btw.
      I think that this may be realated to ChrB() which I simply translate to StringToBinary()
      Especialy this :
      StringToBinary(Chr(0))) could be the main issue.
      But for now I'm tired and going to sleep.
      Hope maybe tomorrow somebody solve this issue.
       
×
×
  • Create New...