Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите плиз / 12 сообщений из 12, страница 1 из 1
20.11.2010, 10:48
    #36967146
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Вот что хотел спросить.
Даю на сайт запрос. Сайт на бравзер выдает мне ответ:
 
<rsp st="1290207816">
<err id="109" />
</rsp>

или
 
<rsp st="1290238704">
<mcc cid="1085587" lv="12" sz="11" pp="100010" nm="Цьоп">
<bld dc="22" x="-5" y="-3" st="2" tm="1290302572" fl="25"/>
<bld dc="21" x="-5" y="-5" st="2" tm="1290302579" fl="25"/>
<bld dc="138" x="4" y="-4" st="1" tm="1290246320" fl="0"/>
<bld dc="138" x="4" y="-3" st="1" tm="1290246292" fl="0"/>
<bld dc="138" x="4" y="-2" st="1" tm="1290246289" fl="0"/>
<bld dc="138" x="5" y="5" st="1" tm="1290246327" fl="0"/>
<bld dc="138" x="5" y="0" st="1" tm="1290246282" fl="0"/>
<bld dc="138" x="5" y="1" st="1" tm="1290246279" fl="0"/>
<bld dc="138" x="5" y="2" st="1" tm="1290246302" fl="0"/>
<bld dc="138" x="4" y="-5" st="1" tm="1290246323" fl="0"/>
<bld dc="138" x="5" y="3" st="1" tm="1290246299" fl="0"/>
<bld dc="138" x="5" y="4" st="1" tm="1290246295" fl="0"/>
<bld dc="138" x="5" y="-5" st="1" tm="1290246316" fl="0"/>
<bld dc="138" x="5" y="-4" st="1" tm="1290246312" fl="0"/>
<bld dc="138" x="5" y="-3" st="1" tm="1290246309" fl="0"/>
<bld dc="138" x="5" y="-2" st="1" tm="1290246285" fl="0"/>
<bld dc="138" x="5" y="-1" st="1" tm="1290246305" fl="0"/>
<bld dc="21" x="-1" y="-1" st="2" tm="1290302552" fl="25"/>
<bld dc="21" x="-3" y="-1" st="2" tm="1290302559" fl="25"/>
<bld dc="21" x="-3" y="-5" st="2" tm="1290302569" fl="25"/>
<bld dc="21" x="-3" y="-3" st="2" tm="1290302562" fl="25"/>
<bld dc="21" x="-5" y="-1" st="2" tm="1290302575" fl="25"/>
<bld dc="21" x="-1" y="-3" st="2" tm="1290302555" fl="25"/>
<bld dc="21" x="-1" y="-5" st="2" tm="1290302565" fl="25"/>
<bld dc="235" x="3" y="4" st="1" tm="1290245996" fl="0"/>
<bld dc="23" x="3" y="-5" st="1" tm="1290247669" fl="0"/>
</mcc>
</rsp>


а на самом деле Inet1 принимает полностю значение
 
<HEAD>
<STYLE>BODY{font:x-small 'Verdana';margin-right:1.5em}
.c{cursor:hand}
.b{color:red;font-family:'Courier New';font-weight:bold;text-decoration:none}
.e{margin-left:1em;text-indent:-1em;margin-right:1em}
.k{margin-left:1em;text-indent:-1em;margin-right:1em}
.t{color:#990000}
.xt{color:#990099}
.ns{color:red}
.dt{color:green}
.m{color:blue}
.tx{font-weight:bold}
.db{text-indent:0px;margin-left:1em;margin-top:0px;margin-bottom:0px;padding-left:.3em;border-left:1px solid #CCCCCC;font:small Courier}
.di{font:small Courier}
.d{color:blue}
.pi{color:blue}
.cb{text-indent:0px;margin-left:1em;margin-top:0px;margin-bottom:0px;padding-left:.3em;font:small Courier;color:#888888}
.ci{font:small Courier;color:#888888}
PRE{margin:0px;display:inline}</STYLE>

<SCRIPT><!--
function f(e){
if (e.className=="ci"){if (e.children(0).innerText.indexOf("\n")>0) fix(e,"cb");}
if (e.className=="di"){if (e.children(0).innerText.indexOf("\n")>0) fix(e,"db");}
e.id="";
}
function fix(e,cl){
e.className=cl;
e.style.display="block";
j=e.parentElement.children(0);
j.className="c";
k=j.children(0);
k.style.visibility="visible";
k.href="#";
}
function ch(e){
mark=e.children(0).children(0);
if (mark.innerText=="+"){
mark.innerText="-";
for (var i=1;i<e.children.length;i++)
e.children(i).style.display="block";
}
else if (mark.innerText=="-"){
mark.innerText="+";
for (var i=1;i<e.children.length;i++)
e.children(i).style.display="none";
}}
function ch2(e){
mark=e.children(0).children(0);
contents=e.children(1);
if (mark.innerText=="+"){
mark.innerText="-";
if (contents.className=="db"||contents.className=="cb")
contents.style.display="block";
else contents.style.display="inline";
}
else if (mark.innerText=="-"){
mark.innerText="+";
contents.style.display="none";
}}
function cl(){
e=window.event.srcElement;
if (e.className!="c"){e=e.parentElement;if (e.className!="c"){return;}}
e=e.parentElement;
if (e.className=="e") ch(e);
if (e.className=="k") ch2(e);
}
function ex(){}
function h(){window.status=" ";}
document.onclick=cl;
--></SCRIPT>
</HEAD>
<BODY class=st>
<DIV class=e>
<DIV class=c style="MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A class=b onfocus=h() onclick="return false" href="#">-</A> <SPAN class=m><</SPAN><SPAN class=t>rsp</SPAN><SPAN class=t> st</SPAN><SPAN class=m>="</SPAN><B>1290238800</B><SPAN class=m>"</SPAN><SPAN class=m>></SPAN></DIV>
<DIV>
<DIV class=e>
<DIV class=c style="MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A class=b onfocus=h() onclick="return false" href="#">-</A> <SPAN class=m><</SPAN><SPAN class=t>mcc</SPAN><SPAN class=t> cid</SPAN><SPAN class=m>="</SPAN><B>883519</B><SPAN class=m>"</SPAN><SPAN class=t> lv</SPAN><SPAN class=m>="</SPAN><B>15</B><SPAN class=m>"</SPAN><SPAN class=t> sz</SPAN><SPAN class=m>="</SPAN><B>15</B><SPAN class=m>"</SPAN><SPAN class=t> pp</SPAN><SPAN class=m>="</SPAN><B>823210</B><SPAN class=m>"</SPAN><SPAN class=t> nm</SPAN><SPAN class=m>="</SPAN><B>Звізданеля</B><SPAN class=m>"</SPAN><SPAN class=m>></SPAN></DIV>
<DIV>
<DIV class=e>
<DIV style="MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><SPAN class=b> </SPAN> <SPAN class=m><</SPAN><SPAN class=t>bld</SPAN> <SPAN class=t>dc</SPAN><SPAN class=m>="</SPAN><B>22</B><SPAN class=m>"</SPAN><SPAN class=t> x</SPAN><SPAN class=m>="</SPAN><B>-7</B><SPAN class=m>"</SPAN><SPAN class=t> y</SPAN><SPAN class=m>="</SPAN><B>-7</B><SPAN class=m>"</SPAN><SPAN class=t> st</SPAN><SPAN class=m>="</SPAN><B>2</B><SPAN class=m>"</SPAN><SPAN class=t> tm</SPAN><SPAN....


Я без проблем отсееваю код. Создал два или три года назад почти универсальный вариант
 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
'Regim = "вибираємо що в середині"
'Regim = "викидуємо"
'Regim = "вибираємо все"
'Regim = "пропускаємо"
'кома в стрці-зразок є розділювач!
'
Public Function Poshuk_Vibirayemo(ByVal Vhid As String, ByVal StrokaIzZrazkom As String, Regim As String) As String
'Вибір чи пропуск послідовності тегів
    Dim i As Long
    Dim b As Boolean
    Dim s1 As String
    Dim s2 As String
    Dim s3 As String
    Dim s4 As String
    Dim s5 As String: Dim sS5 As String
    Dim s6 As String: Dim sS6 As String
    Dim q As String
    Dim w As String
    Dim bl1 As String
    Dim bl2 As String
    Dim vh4 As String
    Dim vh3 As String
    Dim vh1 As String
    b = False

Dim sS0 As String
Dim sS1 As String
Dim sS2 As String
Dim sS3 As String
Dim sS4 As String
            sS0 = Vhid
            sS1 = sS0
            vh3 = StrokaIzZrazkom
            w = vh3
            b = False
Cicl2:
       If Trim(w) <> "" Then
         i = InStr(w, ",")
         If i >  1  Then
           q = Left(w, i -  1 )
           w = Trim(Mid(w + " ", i +  1 ))
         Else
           q = w
           b = True ' Не забути обезвредити якщо інша перевірка не пройде
         End If
       i = InStr( 1 , sS1, q, vbTextCompare)
         If i =  0  Then b = False: GoTo Dali2
         bl1 = q
         sS5 = Left(sS1, i -  1 )
         sS2 = Mid(sS1, i + Len(q))
         sS1 = Mid(sS1, i)
         If b = True Then sS3 = "": GoTo Dali2
Cicl3:
         i = InStr(w, ",")
         If i >  1  Then
           q = Left(w, i -  1 )
           w = Trim(Mid(w + " ", i +  1 ))
         Else
           q = w
           b = True ' Не забути обезвредити якщо інша перевірка не пройде
           bl2 = q
         End If
       i = InStr( 1 , sS2, q, vbTextCompare)
          If i =  0  Then b = False: sS1 = "": GoTo Dali2
          If Len(q) + i -  1  =  0  Then b = False: sS1 = "": GoTo Dali2
          sS2 = Mid(sS2, Len(q) + i)
          sS3 = Left(sS1, Len(sS1) - Len(sS2))
          If b = True Then GoTo Dali2
         GoTo Cicl3
       End If
Dali2:
        If b = True Then
          If Regim = "вибираємо все" Then
             Poshuk_Vibirayemo = sS3
          End If
          If Regim = "вибираємо що в середині" And bl1 <> "" And bl2 <> "" Then
             sS0 = sS3
              sS0 = Mid(sS0, Len(bl1) +  1 )
              Poshuk_Vibirayemo = Left(sS0, Len(sS0) - Len(bl2))
          End If
          If Regim = "пропускаємо" Then
             Poshuk_Vibirayemo = sS2
          End If
          If Regim = "викидуємо" Then
             Poshuk_Vibirayemo = sS5 + sS2
          End If
          
        Else
          Poshuk_Vibirayemo = ""
          If Regim = "викидуємо" Then Poshuk_Vibirayemo = Vhid
        End If
End Function

но работает очень медленно. Эта функция только:
1. Выбирает то что заложено в образце (разделено запьятой)
2. пропускает
3. удаляет
Методом удаления я поодиночно избавлялся от < > НО СЛИШКОМ МЕДЛЕННО. Три секунды это слишком. Есть готовое решения в API или Dll. Формат итак известен. Должно что-то быть...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2010, 10:49
    #36969095
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
> Автор: Андрей159


Я не совсем понял что ты получаешь и что из полученного тебе нужно. Может тебе стоит посмотреть в сторону
XSLT-преобразования, например такого 9805303 ?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.11.2010, 20:32
    #36970592
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Мне нужно из
этого
 
<HEAD>
<STYLE>BODY{font:x-small 'Verdana';margin-right:1.5em}
.c{cursor:hand}
.b{color:red;font-family:'Courier New';font-weight:bold;text-decoration:none}
.e{margin-left:1em;text-indent:-1em;margin-right:1em}
.k{margin-left:1em;text-indent:-1em;margin-right:1em}
.t{color:#990000}
.xt{color:#990099}
.ns{color:red}
.dt{color:green}
.m{color:blue}
.tx{font-weight:bold}
.db{text-indent:0px;margin-left:1em;margin-top:0px;margin-bottom:0px;padding-left:.3em;border-left:1px solid #CCCCCC;font:small Courier}
.di{font:small Courier}
.d{color:blue}
.pi{color:blue}
.cb{text-indent:0px;margin-left:1em;margin-top:0px;margin-bottom:0px;padding-left:.3em;font:small Courier;color:#888888}
.ci{font:small Courier;color:#888888}
PRE{margin:0px;display:inline}</STYLE>

<SCRIPT><!--
function f(e){
if (e.className=="ci"){if (e.children(0).innerText.indexOf("\n")>0) fix(e,"cb");}
if (e.className=="di"){if (e.children(0).innerText.indexOf("\n")>0) fix(e,"db");}
e.id="";
}
function fix(e,cl){
e.className=cl;
e.style.display="block";
j=e.parentElement.children(0);
j.className="c";
k=j.children(0);
k.style.visibility="visible";
k.href="#";
}
function ch(e){
mark=e.children(0).children(0);
if (mark.innerText=="+"){
mark.innerText="-";
for (var i=1;i<e.children.length;i++)
e.children(i).style.display="block";
}
else if (mark.innerText=="-"){
mark.innerText="+";
for (var i=1;i<e.children.length;i++)
e.children(i).style.display="none";
}}
function ch2(e){
mark=e.children(0).children(0);
contents=e.children(1);
if (mark.innerText=="+"){
mark.innerText="-";
if (contents.className=="db"||contents.className=="cb")
contents.style.display="block";
else contents.style.display="inline";
}
else if (mark.innerText=="-"){
mark.innerText="+";
contents.style.display="none";
}}
function cl(){
e=window.event.srcElement;
if (e.className!="c"){e=e.parentElement;if (e.className!="c"){return;}}
e=e.parentElement;
if (e.className=="e") ch(e);
if (e.className=="k") ch2(e);
}
function ex(){}
function h(){window.status=" ";}
document.onclick=cl;
--></SCRIPT>
</HEAD>
<BODY class=st>
<DIV class=e>
<DIV class=c style="MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A class=b onfocus=h() onclick="return false" href="#">-</A> <SPAN class=m><</SPAN><SPAN class=t>rsp</SPAN><SPAN class=t> st</SPAN><SPAN class=m>="</SPAN><B>1290238800</B><SPAN class=m>"</SPAN><SPAN class=m>></SPAN></DIV>
<DIV>
<DIV class=e>
<DIV class=c style="MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><A class=b onfocus=h() onclick="return false" href="#">-</A> <SPAN class=m><</SPAN><SPAN class=t>mcc</SPAN><SPAN class=t> cid</SPAN><SPAN class=m>="</SPAN><B>883519</B><SPAN class=m>"</SPAN><SPAN class=t> lv</SPAN><SPAN class=m>="</SPAN><B>15</B><SPAN class=m>"</SPAN><SPAN class=t> sz</SPAN><SPAN class=m>="</SPAN><B>15</B><SPAN class=m>"</SPAN><SPAN class=t> pp</SPAN><SPAN class=m>="</SPAN><B>823210</B><SPAN class=m>"</SPAN><SPAN class=t> nm</SPAN><SPAN class=m>="</SPAN><B>Звізданеля</B><SPAN class=m>"</SPAN><SPAN class=m>></SPAN></DIV>
<DIV>
<DIV class=e>
<DIV style="MARGIN-LEFT: 1em; TEXT-INDENT: -2em"><SPAN class=b> </SPAN> <SPAN class=m><</SPAN><SPAN class=t>bld</SPAN> <SPAN class=t>dc</SPAN><SPAN class=m>="</SPAN><B>22</B><SPAN class=m>"</SPAN><SPAN class=t> x</SPAN><SPAN class=m>="</SPAN><B>-7</B><SPAN class=m>"</SPAN><SPAN class=t> y</SPAN><SPAN class=m>="</SPAN><B>-7</B><SPAN class=m>"</SPAN><SPAN class=t> st</SPAN><SPAN class=m>="</SPAN><B>2</B><SPAN class=m>"</SPAN><SPAN class=t> tm</SPAN><SPAN....

получить такое (то что обычно мы видим в бравзере)
 
<rsp st="1290238704">
<mcc cid="1085587" lv="12" sz="11" pp="100010" nm="Цьоп">
<bld dc="22" x="-5" y="-3" st="2" tm="1290302572" fl="25"/>
<bld dc="21" x="-5" y="-5" st="2" tm="1290302579" fl="25"/>
<bld dc="138" x="4" y="-4" st="1" tm="1290246320" fl="0"/>
<bld dc="138" x="4" y="-3" st="1" tm="1290246292" fl="0"/>
<bld dc="138" x="4" y="-2" st="1" tm="1290246289" fl="0"/>
<bld dc="138" x="5" y="5" st="1" tm="1290246327" fl="0"/>
<bld dc="138" x="5" y="0" st="1" tm="1290246282" fl="0"/>
<bld dc="138" x="5" y="1" st="1" tm="1290246279" fl="0"/>
<bld dc="138" x="5" y="2" st="1" tm="1290246302" fl="0"/>
<bld dc="138" x="4" y="-5" st="1" tm="1290246323" fl="0"/>
<bld dc="138" x="5" y="3" st="1" tm="1290246299" fl="0"/>
<bld dc="138" x="5" y="4" st="1" tm="1290246295" fl="0"/>
<bld dc="138" x="5" y="-5" st="1" tm="1290246316" fl="0"/>
<bld dc="138" x="5" y="-4" st="1" tm="1290246312" fl="0"/>
<bld dc="138" x="5" y="-3" st="1" tm="1290246309" fl="0"/>
<bld dc="138" x="5" y="-2" st="1" tm="1290246285" fl="0"/>
<bld dc="138" x="5" y="-1" st="1" tm="1290246305" fl="0"/>
<bld dc="21" x="-1" y="-1" st="2" tm="1290302552" fl="25"/>
<bld dc="21" x="-3" y="-1" st="2" tm="1290302559" fl="25"/>
<bld dc="21" x="-3" y="-5" st="2" tm="1290302569" fl="25"/>
<bld dc="21" x="-3" y="-3" st="2" tm="1290302562" fl="25"/>
<bld dc="21" x="-5" y="-1" st="2" tm="1290302575" fl="25"/>
<bld dc="21" x="-1" y="-3" st="2" tm="1290302555" fl="25"/>
<bld dc="21" x="-1" y="-5" st="2" tm="1290302565" fl="25"/>
<bld dc="235" x="3" y="4" st="1" tm="1290245996" fl="0"/>
<bld dc="23" x="3" y="-5" st="1" tm="1290247669" fl="0"/>
</mcc>
</rsp>

и наверное есть уже готовые функции чтоб преобразовать, иначе формат бы не был таким востребованым. Хотя в голове не вяжется почему просто не передавать значения
 
<rsp st="1290238704">
<mcc cid="1085587" lv="12" sz="11" pp="100010" nm="Цьоп">
<bld dc="22" x="-5" y="-3" st="2" tm="1290302572" fl="25"/>
<bld dc="21" x="-5" y="-5" st="2" tm="1290302579" fl="25"/>
<bld dc="138" x="4" y="-4" st="1" tm="1290246320" fl="0"/>
<bld dc="138" x="4" y="-3" st="1" tm="1290246292" fl="0"/>
<bld dc="138" x="4" y="-2" st="1" tm="1290246289" fl="0"/>
<bld dc="138" x="5" y="5" st="1" tm="1290246327" fl="0"/>
<bld dc="138" x="5" y="0" st="1" tm="1290246282" fl="0"/>
<bld dc="138" x="5" y="1" st="1" tm="1290246279" fl="0"/>
<bld dc="138" x="5" y="2" st="1" tm="1290246302" fl="0"/>
<bld dc="138" x="4" y="-5" st="1" tm="1290246323" fl="0"/>
<bld dc="138" x="5" y="3" st="1" tm="1290246299" fl="0"/>
<bld dc="138" x="5" y="4" st="1" tm="1290246295" fl="0"/>
<bld dc="138" x="5" y="-5" st="1" tm="1290246316" fl="0"/>
<bld dc="138" x="5" y="-4" st="1" tm="1290246312" fl="0"/>
<bld dc="138" x="5" y="-3" st="1" tm="1290246309" fl="0"/>
<bld dc="138" x="5" y="-2" st="1" tm="1290246285" fl="0"/>
<bld dc="138" x="5" y="-1" st="1" tm="1290246305" fl="0"/>
<bld dc="21" x="-1" y="-1" st="2" tm="1290302552" fl="25"/>
<bld dc="21" x="-3" y="-1" st="2" tm="1290302559" fl="25"/>
<bld dc="21" x="-3" y="-5" st="2" tm="1290302569" fl="25"/>
<bld dc="21" x="-3" y="-3" st="2" tm="1290302562" fl="25"/>
<bld dc="21" x="-5" y="-1" st="2" tm="1290302575" fl="25"/>
<bld dc="21" x="-1" y="-3" st="2" tm="1290302555" fl="25"/>
<bld dc="21" x="-1" y="-5" st="2" tm="1290302565" fl="25"/>
<bld dc="235" x="3" y="4" st="1" tm="1290245996" fl="0"/>
<bld dc="23" x="3" y="-5" st="1" tm="1290247669" fl="0"/>
</mcc>
</rsp>

зачем их нарошно делать цветными с определенным форматом.
Ваш ответ мне поможет ? Извените что переспрашиваю, я еще не пробовал. Сейчас попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.11.2010, 12:51
    #36971675
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Андрей159а на самом деле Inet1 принимает полностю значениеНе могу представить, как Inet1 может это получать. Этот html-код генерирует IE для отображения xml.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.11.2010, 22:34
    #36972942
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Блин, я тормоз. Я же переделал прогу через Createobject(IE) и принимаю через свойство document.
Никогда б и не подумал что там не чистый код на выходе ((((((( Позор.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 10:20
    #36973391
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
> Автор: Андрей159
> Блин, ((((((( Позор.


самокритичность это хорошо, а проблему решил?

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.11.2010, 11:58
    #36973686
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
xslt здесь не поможет, т.к xml-документ невалидный
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2010, 10:07
    #36976113
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
не решил проблему. не скал метод чтоб преобразовать. Хотел обойти проблему з другой стороны.
Вот что я хотел попробовать.
я не могу воспользоваться например inet1 или чем то друшим. Сервер сечет отсутствия кука или другой бравзер. Проинспектировал страницу с помощю Opera 10.6. Она мне выдает вот такое:
Исходный запрос
GET /blablabla/blabla.ashx?ver=12&uid=777&x=%2D4&nocache=777%2E571&y=%2D4&t=blablablabla&act=10&cid=blbl HTTP/1.1
User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.5.24 Version/10.53
Host: 777.77.77.777
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.9,en;q=0.8
Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1
Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0
Referer: http://blablablablabla/swf/api_blablabla.swf?15
Connection: Keep-Alive, TE
TE: deflate, gzip, chunked, identity, trailers


Исходный ответ
HTTP/1.1 200 OK
Cache-Control: private
Content-Type: text/xml; charset=utf-8
Server: Microsoft-IIS/7.5
X-AspNet-Version: 2.0.50727
X-Powered-By: ASP.NET
Date: Thu, 25 Nov 2010 06:53:15 GMT
Content-Length: 42


Уже не припомню точно, но мне кажется что это можно сделать winsock . Я когдато дела программу слежки "Кто в сети" на моем ADSL модеме и мог блокировать неоплатившего юзера находя его по "HW Address". Так вот там по обращению к модему он мне выдавал развернутую информацию типа как "Исходный ответ". А как правильно задать Исходный запрос я не знаю. Где читать, чего искать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2010, 10:13
    #36976133
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Я также пробовал
Public Function PIG_IE_innerHTML(Nomr As Long) As String
PIG_IE_innerHTML = IE(Nomr).Document.documentElement. innerHTML
PIG_IE_innerHTML = IE(Nomr).Document.documentElement.out.... (не припомню ка полностю пишется)
End Function
Никакой разницы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2010, 11:43
    #36976436
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Это нужно делать через XMLHTTP.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2010, 19:26
    #36977816
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Спасибо. Буду изучать эту область
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.11.2010, 19:36
    #36977826
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите плиз
Кажется нашел подходящий примерчик . Сегодня попробую...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите плиз / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]