网页java 代码 改成 VB

Question

请高手帮忙,有一段网页java 代码 (本人不懂),想改成 VB代码结果是,搜索文件，播放我想知道是如何搜索“Remote”（是SD卡），上的内容，<script language="JavaScript">
<!--
var g_host = new Array();
var g_date = new Array();
var g_size = new Array();
var g_timelen = new Array();
var g_file = new Array();
var stype = 0;
function aff_dis(obj_list, obj_hint)
{
    obj_list.style.visibility = "visible";
    obj_hint.style.visibility = "hidden";
}
function fucCheckNUM(NUM)
{
var i,j,strTemp;
strTemp="0123456789";
if ( NUM.length== 0)
return 0
for (i=0;i<NUM.length;i++)
{
j=strTemp.indexOf(NUM.charAt(i));
if (j==-1)
{
//说明有字符不是数字
return 0;
}
}
//说明是数字
return 1;
}
function init_date(handle)
{
Camera0.SetLogonHandle(handle);
    var todayName = new Date();
    document.all.t_year.value = todayName.getFullYear();
    document.all.t_month.value = (todayName.getMonth()+1);
    document.all.t_day.value = todayName.getDate();
}
function call_player(name)
{
    var file_id = name.substr(3);
    var obj = new Object();
    obj.name=g_file[file_id];
    if(stype == 2)
      obj.PlayRemoteFile = true;
    else
      obj.PlayRemoteFile = false;
    obj.Handle = Camera0.GetLogonHandle();
    window.showModalDialog("player.html",obj,"dialogWidth=800px;dialogHeight=750px");
}function call_download(name)
{
  var file_id = name.substr(4);
  Camera0.DownloadFile(g_file[file_id],"");
}function result_com(url, date, time, length,timelen, filename)
{
    g_host.push(url);
    g_date.push(date);
    g_size.push(length);
    g_timelen.push(timelen);
    g_file.push(filename);
}
function search_file()
{
    var itm_search = new Array(document.all.t_year.value,
        document.all.t_month.value,
        document.all.t_day.value,
        document.all.t_bgnHour.value,
        document.all.t_bgnMin.value,
        document.all.t_endHour.value,
        document.all.t_endMin.value);
    var itm = new Array();
    for(i=0; i<7; i++)
    {
        if(fucCheckNUM(itm_search[i])){
            itm[i] = parseFloat(itm_search[i]);
        }
        else{
            alert("Need a correct search request!");
            return false;
        }
     }
     stype = document.getElementById("searchtype").value;
     var ftype = document.getElementById("filetype").value;
     if(stype == 0)
     {
      if(ftype == 0)
      Camera0.SearchFile(itm[0], itm[1], itm[2], itm[3], itm[4], itm[5], itm[6]);
    else
     Camera0.SearchJpgFile(itm[0], itm[1], itm[2], itm[3], itm[4], itm[5], itm[6]);
     }
     else if(stype == 1)
     {
      Camera0.SearchDownloadedFile(itm[0], itm[1], itm[2], itm[3], itm[4], itm[5], itm[6],ftype);
     }
     else if(stype == 2)
     {
      Camera0.SearchRemoteFile(itm[0], itm[1], itm[2], itm[3], itm[4], itm[5], itm[6],ftype);
     }
     return true;
}
function rebuilt()
{
    var temp = document.all.tb_list;
    while(temp.rows.length>1)
    {
        temp.deleteRow(temp.rows.length-1)
    }
}
function callback_result(obj_list, obj_hint)
{
    g_host.length = 0;
    g_date.length = 0;
    g_size.length = 0;
    g_timelen.length = 0;
    g_file.length = 0;
    rebuilt();    if(search_file()){
        obj_hint.style.visibility = "visible";
    setTimeout("aff_dis(thumb_list, pre_hint);",800);     var i = 0;
    var temp = document.all.tb_list;
    var c_text;
for(i=0; i<g_date.length; i++){
c_text = "<input type='button' name='frm"+i+"' class='imgbtn' title='play' onclick='javascript:call_player(this.name)'>";
c_playdown = "<input type='button' name='frm"+i+"' class='imgbtn' title='play' onclick='javascript:call_player(this.name)'> <input type='button' name='down"+i+"' class='downbtn' title='download' onclick='javascript:call_download(this.name)'>";
temp.insertRow();
temp.rows.item(temp.rows.length -1).insertCell(0);
temp.rows.item(temp.rows.length -1).insertCell(1);
temp.rows.item(temp.rows.length -1).insertCell(2);
temp.rows.item(temp.rows.length -1).insertCell(3);
temp.rows.item(temp.rows.length -1).insertCell(4);
temp.rows.item(temp.rows.length -1).insertCell(5);
temp.rows.item(temp.rows.length-1).cells.item(0).innerText = g_host[i];
temp.rows.item(temp.rows.length-1).cells.item(1).innerText = g_date[i];
temp.rows.item(temp.rows.length-1).cells.item(2).innerText = g_size[i];
temp.rows.item(temp.rows.length-1).cells.item(3).innerText = g_timelen[i];
temp.rows.item(temp.rows.length-1).cells.item(4).innerText = g_file[i];
if(stype == 2)
{
  temp.rows.item(temp.rows.length-1).cells.item(5).innerHTML = c_playdown;
}
else
  temp.rows.item(temp.rows.length-1).cells.item(5).innerHTML = c_text;
}
}
else
    err_hint.style.visibility = "visible";
}
-->
</script>
<script language="javascript" for="Camera0" event="SearchRet(url, date, time, length, timelen,filename)">
result_com(url, date, time, length,timelen, filename);
</script>
<SCRIPT LANGUAGE="javascript" FOR="Camera0" EVENT='ClickSel(channel)'>
  alert(channel);
</SCRIPT>