ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите плиз
12 сообщений из 12, страница 1 из 1
Помогите плиз
    #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
20.11.2010, 10:48
| Ответить | Цитировать | Написать  
Помогите плиз
    #36969095
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Андрей159


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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
22.11.2010, 10:49
| Ответить | Цитировать | Написать  
Помогите плиз
    #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
22.11.2010, 20:32
| Ответить | Цитировать | Написать  
Помогите плиз
    #36971675
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Андрей159а на самом деле Inet1 принимает полностю значениеНе могу представить, как Inet1 может это получать. Этот html-код генерирует IE для отображения xml.
...
Рейтинг: 0 / 0
23.11.2010, 12:51
| Ответить | Цитировать | Написать  
Помогите плиз
    #36972942
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Блин, я тормоз. Я же переделал прогу через Createobject(IE) и принимаю через свойство document.
Никогда б и не подумал что там не чистый код на выходе ((((((( Позор.
...
Рейтинг: 0 / 0
23.11.2010, 22:34
| Ответить | Цитировать | Написать  
Помогите плиз
    #36973391
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Андрей159
> Блин, ((((((( Позор.


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

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
24.11.2010, 10:20
| Ответить | Цитировать | Написать  
Помогите плиз
    #36973686
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
xslt здесь не поможет, т.к xml-документ невалидный
...
Рейтинг: 0 / 0
24.11.2010, 11:58
| Ответить | Цитировать | Написать  
Помогите плиз
    #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:07
| Ответить | Цитировать | Написать  
Помогите плиз
    #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, 10:13
| Ответить | Цитировать | Написать  
Помогите плиз
    #36976436
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Это нужно делать через XMLHTTP.
...
Рейтинг: 0 / 0
25.11.2010, 11:43
| Ответить | Цитировать | Написать  
Помогите плиз
    #36977816
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Спасибо. Буду изучать эту область
...
Рейтинг: 0 / 0
25.11.2010, 19:26
| Ответить | Цитировать | Написать  
Помогите плиз
    #36977826
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Кажется нашел подходящий примерчик . Сегодня попробую...
...
Рейтинг: 0 / 0
25.11.2010, 19:36
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите плиз
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=114&tid=2159213]:
 0ms
get settings:
 12ms
get forum list:
 10ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 2ms
others: 349ms
total:  493ms
созд. / загр.: 493ms
x
x
Закрыть


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