<?xml version="1.0" encoding="utf-8"?>
<feed xmlns="http://www.w3.org/2005/Atom">
	<title type="html"><![CDATA[Серый форум &mdash; проблема со Screenheight]]></title>
	<link rel="self" href="http://forum.script-coding.com/extern.php?action=feed&amp;tid=11905&amp;type=atom" />
	<updated>2016-08-15T18:43:47Z</updated>
	<generator>PunBB</generator>
	<id>http://forum.script-coding.com/viewtopic.php?id=11905</id>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106810#p106810" />
			<content type="html"><![CDATA[<p>Разобрался в общем, нужно было вбить цифру 345 вместо 150, теперь работает макрос. Спасибо вам за отзывчивость.</p>]]></content>
			<author>
				<name><![CDATA[JackieCh]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34117</uri>
			</author>
			<updated>2016-08-15T18:43:47Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106810#p106810</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106803#p106803" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>JackieCh пишет:</cite><blockquote><p>21 дюйм экран монитора. Разр. экрана 1980х1080(рекомендуемая) стоит. А как в пиксели пересчитать? Вы меня уж извините, за столь ламерские вопросы</p></blockquote></div><p>Мерите весь экран по вертикали, потом расстояние сверху до кнопки. Пример чисто условный: весь экран по вертикали 50 см, расстояние до кнопки 40 см. Значит, 40 / 50 * 1080 = игрек-координата кнопки в пикселях.</p>]]></content>
			<author>
				<name><![CDATA[YMP]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=81</uri>
			</author>
			<updated>2016-08-15T15:01:04Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106803#p106803</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106797#p106797" />
			<content type="html"><![CDATA[<p>Для того, чтобы не мерять линейкой.</p>]]></content>
			<author>
				<name><![CDATA[Malcev]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=26930</uri>
			</author>
			<updated>2016-08-15T14:30:38Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106797#p106797</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106796#p106796" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>Malcev пишет:</cite><blockquote><p>Я пользуюсь таким скриптом:<br /></p><div class="codebox"><pre><code>; Should work with all current AHK versions/builds
#NoEnv
SetBatchLines, -1 ; For speed in general
SetWinDelay, -1   ; For speed of WinMove
BW := 1           ; Border width (and height) in pixels
BC := &quot;Red&quot;       ; Border color
; ______________________________________________________________________________________________________________________
FirstCall := True
CoordMode, Mouse, Screen
Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop
Gui, Color, %BC%
Return
; ______________________________________________________________________________________________________________________
~Esc::
ExitApp
; ______________________________________________________________________________________________________________________
+LButton::
    MouseGetPos, OriginX, OriginY
    SetTimer, DrawRectangle, 10
Return
; ______________________________________________________________________________________________________________________
+LButton Up::
   SetTimer, DrawRectangle, Off
   FirstCall := True
   Gui, Cancel
   ToolTip
   ; MsgBox, 0, Coordinates, X = %X1%  -  Y = %Y1%  -  W = %W1%  -  H = %H1%
Return
; ______________________________________________________________________________________________________________________
DrawRectangle:
   MouseGetPos, X2, Y2
   ; Has the mouse moved?
   If (XO = X2) And (YO = Y2)
      Return
   Gui, +LastFound
   XO := X2, YO := Y2
   ; Allow dragging to the left of the click point.
   If (X2 &lt; OriginX)
      X1 := X2, X2 := OriginX
   Else
      X1 := OriginX
   ; Allow dragging above the click point.
   If (Y2 &lt; OriginY)
      Y1 := Y2, Y2 := OriginY
   Else
      Y1 := OriginY
   ; Draw the rectangle
   W1 := X2 - X1, H1 := Y2 - Y1
   W2 := W1 - BW, H2 := H1 - BW
   WinSet, Region, 0-0 %W1%-0 %W1%-%H1% 0-%H1% 0-0  %BW%-%BW% %W2%-%BW% %W2%-%H2% %BW%-%H2% %BW%-%BW%
   If (FirstCall) {
      Gui, Show, NA x%X1% y%Y1% w%W1% h%H1%
      FirstCall := False
   }
   WinMove, , , X1, Y1, W1, H1
    ToolTip, Width: %W1%`nHeight: %H1%
Return</code></pre></div></blockquote></div><p>а этот скрипт для чего предназначен?</p>]]></content>
			<author>
				<name><![CDATA[JackieCh]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34117</uri>
			</author>
			<updated>2016-08-15T14:26:45Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106796#p106796</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106795#p106795" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>YMP пишет:</cite><blockquote><div class="quotebox"><cite>JackieCh пишет:</cite><blockquote><p>А как это проверить?</p></blockquote></div><p>Линейкой померить можно, потом пересчитать в пиксели.</p></blockquote></div><p>21 дюйм экран монитора. Разр. экрана 1980х1080(рекомендуемая) стоит. А как в пиксели пересчитать? Вы меня уж извините, за столь ламерские вопросы <img src="//forum.script-coding.com/img/smilies/roll.png" width="15" height="15" /></p>]]></content>
			<author>
				<name><![CDATA[JackieCh]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34117</uri>
			</author>
			<updated>2016-08-15T14:23:28Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106795#p106795</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106794#p106794" />
			<content type="html"><![CDATA[<p>Я пользуюсь таким скриптом:<br /></p><div class="codebox"><pre><code>; Should work with all current AHK versions/builds
#NoEnv
SetBatchLines, -1 ; For speed in general
SetWinDelay, -1   ; For speed of WinMove
BW := 1           ; Border width (and height) in pixels
BC := &quot;Red&quot;       ; Border color
; ______________________________________________________________________________________________________________________
FirstCall := True
CoordMode, Mouse, Screen
Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop
Gui, Color, %BC%
Return
; ______________________________________________________________________________________________________________________
~Esc::
ExitApp
; ______________________________________________________________________________________________________________________
+LButton::
    MouseGetPos, OriginX, OriginY
    SetTimer, DrawRectangle, 10
Return
; ______________________________________________________________________________________________________________________
+LButton Up::
   SetTimer, DrawRectangle, Off
   FirstCall := True
   Gui, Cancel
   ToolTip
   ; MsgBox, 0, Coordinates, X = %X1%  -  Y = %Y1%  -  W = %W1%  -  H = %H1%
Return
; ______________________________________________________________________________________________________________________
DrawRectangle:
   MouseGetPos, X2, Y2
   ; Has the mouse moved?
   If (XO = X2) And (YO = Y2)
      Return
   Gui, +LastFound
   XO := X2, YO := Y2
   ; Allow dragging to the left of the click point.
   If (X2 &lt; OriginX)
      X1 := X2, X2 := OriginX
   Else
      X1 := OriginX
   ; Allow dragging above the click point.
   If (Y2 &lt; OriginY)
      Y1 := Y2, Y2 := OriginY
   Else
      Y1 := OriginY
   ; Draw the rectangle
   W1 := X2 - X1, H1 := Y2 - Y1
   W2 := W1 - BW, H2 := H1 - BW
   WinSet, Region, 0-0 %W1%-0 %W1%-%H1% 0-%H1% 0-0  %BW%-%BW% %W2%-%BW% %W2%-%H2% %BW%-%H2% %BW%-%BW%
   If (FirstCall) {
      Gui, Show, NA x%X1% y%Y1% w%W1% h%H1%
      FirstCall := False
   }
   WinMove, , , X1, Y1, W1, H1
    ToolTip, Width: %W1%`nHeight: %H1%
Return</code></pre></div>]]></content>
			<author>
				<name><![CDATA[Malcev]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=26930</uri>
			</author>
			<updated>2016-08-15T14:18:17Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106794#p106794</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106787#p106787" />
			<content type="html"><![CDATA[<div class="quotebox"><cite>JackieCh пишет:</cite><blockquote><p>А как это проверить?</p></blockquote></div><p>Линейкой померить можно, потом пересчитать в пиксели.</p>]]></content>
			<author>
				<name><![CDATA[YMP]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=81</uri>
			</author>
			<updated>2016-08-15T13:59:28Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106787#p106787</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106786#p106786" />
			<content type="html"><![CDATA[<p>Да нет, я имел в виду в первом посте, ну ладно.</p>]]></content>
			<author>
				<name><![CDATA[teadrinker]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=24515</uri>
			</author>
			<updated>2016-08-15T13:57:51Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106786#p106786</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106782#p106782" />
			<content type="html"><![CDATA[<div class="codebox"><pre><code>SetDefaultMouseSpeed, 0    ;Скорость мышки теперь зависит от возможностей ПК.
			;Объявление переменных
	
			
eat:= 0 	;Еда
iron:= 1 	;Железо
wood:= 2 	;Дерево
coal:= 3 	;Уголь
stone:= 4	;Камень
gold:= 5	;Золото

			;Начало Обмена



		;Продажа:			0x008FC014 	- 	Патч 1.35а		/		0x008FBE34 - Классика.	/	0x008ff780	-	Помор
		;Покупка:			0x008FC018 	- 	Патч 1.35а		/		0x008FBE38 - Классика.	/	0x008ff784	-	Помор	
		;Кол-во продажи:	0x008FC010 	- 	Патч 1.35а		/		0x008FBE30 - Классика.	/	0x008ff788	-	Помор


sell:= 0x008FBE34
buy:= 0x008FBE38 
q:= 0x008FBE30


y:= A_ScreenHeight - 150 	    ;получение У-координаты кнопки рынка &quot;ОК&quot; для текущего разреш.экрана.


obm(Address, Data)				 ;объявление функции записи в память казаков
{                    ;ниже приведено тело функции

ProcessName = dmcr.exe          ; Имя процесса.
;Address = 0x008FC010          ; Адрес, Кол-ва продаж. 0x008FC010 - Патч1.35а,0x008FBE30 - Классика.
;Data = 3000               ; Записываемое значение
Size = 4               ; Размер переменной в байтах
VarSetCapacity(Buf, Size, 0)     ; Буфер, для записываемых данных.

NumPut(Data, Buf, 0, &quot;UInt&quot;)     ; Данные - в буфер.

PROCESS_VM_WRITE = 0x20          ; Права на процесс.
PROCESS_VM_OPERATION = 0x8
Process, Exist, %ProcessName%     ; Поиск процесса.
PID := ErrorLevel          ; Идентификатор процесса будет в ErrorLevel.

hProcess := DllCall(&quot;OpenProcess&quot;, &quot;UInt&quot;, PROCESS_VM_WRITE | PROCESS_VM_OPERATION
                                 , &quot;Int&quot;,  False
                                 , &quot;UInt&quot;, PID)
Ret := DllCall(&quot;WriteProcessMemory&quot;, &quot;UInt&quot;, hProcess
                                   , &quot;UInt&quot;, Address
                                   , &quot;UInt&quot;, &amp;Buf
                                   , &quot;UInt&quot;, Size
                                   , &quot;UInt&quot;, 0)

DllCall(&quot;CloseHandle&quot;, &quot;UInt&quot;, hProcess) ; Освобождение хэндла процесса.
}



f1::
obm(sell, gold)
obm(buy, coal)
obm(q, 10000)
MouseClick, left, 325, %y%, 5     ;нажать кнопку рынка  5 раз
obm(sell, coal)
obm(buy, gold)
obm(q, 800000)
MouseClick, left, 325, %y%

obm(sell, gold)
obm(buy, iron)
obm(q, 10000)
MouseClick, left, 325, %y%, 5 
obm(sell, iron)
obm(buy, gold)
obm(q, 800000)
MouseClick, left, 325, %y%

obm(sell, wood)
obm(buy, stone)
obm(q, 10000)
MouseClick, left, 325, %y%, 5
obm(sell, stone)
obm(buy, wood)
obm(q, 400000)
MouseClick, left, 325, %y%
SetNumber(6)
RETURN ;Конец Обмена 

f2::
obm(sell, gold)
obm(buy, iron)
obm(q, 10000)
MouseClick, left, 325, %y%, 5 
obm(sell, iron)
obm(buy, gold)
obm(q, 850000)
MouseClick, left, 325, %y%

obm(sell, gold)
obm(buy, coal)
obm(q, 10000)
MouseClick, left, 325, %y%, 5     ;нажать кнопку рынка  5 раз
obm(sell, coal)
obm(buy, gold)
obm(q, 880000)
MouseClick, left, 325, %y%

obm(sell, wood)
obm(buy, stone)
obm(q, 10000)
MouseClick, left, 325, %y%, 5
obm(sell, stone)
obm(buy, wood)
obm(q, 400000)
MouseClick, left, 325, %y%

obm(sell, wood)
obm(buy, food)
obm(q, 10000)
MouseClick, left, 325, %y%, 5
obm(sell, food)
obm(buy, wood)
obm(q, 600000)
MouseClick, left, 325, %y%

obm(sell, gold)
obm(buy, wood)
obm(q, 10000)
MouseClick, left, 325, %y%, 5     ;нажать кнопку рынка  5 раз
obm(sell, wood)
obm(buy, gold)
obm(q, 600000)
MouseClick, left, 325, %y%
SetNumber(6)
RETURN ;Конец Обмена 


f4::
obm(sell, gold)
obm(buy, iron)
obm(q, 10000)
MouseClick, left, 325, %y%, 5 
obm(sell, iron)
obm(buy, gold)
obm(q, 850000)
MouseClick, left, 325, %y%

obm(sell, gold)
obm(buy, coal)
obm(q, 10000)
MouseClick, left, 325, %y%, 5     ;нажать кнопку рынка  5 раз
obm(sell, coal)
obm(buy, gold)
obm(q, 880000)
MouseClick, left, 325, %y%

obm(sell, wood)
obm(buy, stone)
obm(q, 10000)
MouseClick, left, 325, %y%, 5
obm(sell, stone)
obm(buy, wood)
obm(q, 325000)
MouseClick, left, 325, %y%

obm(sell, wood)
obm(buy, food)
obm(q, 10000)
MouseClick, left, 325, %y%, 5
obm(sell, food)
obm(buy, wood)
obm(q, 600000)
MouseClick, left, 325, %y%

obm(sell, gold)
obm(buy, wood)
obm(q, 10000)
MouseClick, left, 325, %y%, 5     ;нажать кнопку рынка  5 раз
obm(sell, wood)
obm(buy, gold)
obm(q, 600000)
MouseClick, left, 325, %y%
SetNumber(6)
RETURN ;Конец Обмена 




HOME::
Send, {DEL}
RETURN

f9::
Send, {SHIFTDOWN}
MouseClick, left, 375, %y%, 60
Send, {SHIFTUP}
RETURN 

f10::
Send, {SHIFTDOWN}
MouseClick, left, 375, %y%, 180
Send, {SHIFTUP}
RETURN 

^z::
Send, {CTRLDOWN}pз{CTRLUP}
RETURN 

SetNumber(n)               ;присвоение зданию цифры &quot;n&quot;
{
Send, {Control down}        
SetKeyDelay, 10, 10,
Send, %n%
Send, {Control up}
}</code></pre></div>]]></content>
			<author>
				<name><![CDATA[JackieCh]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34117</uri>
			</author>
			<updated>2016-08-15T13:42:46Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106782#p106782</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106777#p106777" />
			<content type="html"><![CDATA[<p><strong>JackieCh</strong>, оформите код, как положено.</p>]]></content>
			<author>
				<name><![CDATA[teadrinker]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=24515</uri>
			</author>
			<updated>2016-08-15T12:36:43Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106777#p106777</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106772#p106772" />
			<content type="html"><![CDATA[<p>А как это проверить?</p>]]></content>
			<author>
				<name><![CDATA[JackieCh]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34117</uri>
			</author>
			<updated>2016-08-15T11:49:49Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106772#p106772</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[Re: проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106769#p106769" />
			<content type="html"><![CDATA[<p>Очевидно, нужно вычитать не 150, а другое число, своё для каждого разрешения. А на сколько пикселей у вас эта кнопка выше нижнего края экрана, это вам на месте виднее.</p>]]></content>
			<author>
				<name><![CDATA[YMP]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=81</uri>
			</author>
			<updated>2016-08-15T10:51:43Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106769#p106769</id>
		</entry>
		<entry>
			<title type="html"><![CDATA[проблема со Screenheight]]></title>
			<link rel="alternate" href="http://forum.script-coding.com/viewtopic.php?pid=106765#p106765" />
			<content type="html"><![CDATA[<p>Добрый день. Не могу разобраться с разрешением экрана в скрипте, чтобы макрос работал в игре. В скрипте стоит </p><div class="codebox"><pre><code>y:= A_ScreenHeight - 150 	    ;получение У-координаты кнопки рынка &quot;ОК&quot; для текущего разреш.экрана.</code></pre></div><p> то есть работает на разрешении в игре 1680х1050. На остальных разрешениях не пашет. Играю сам на 1152х864, соответственно не могу указать правильное разрешение в скрипте. Не подскажете что нужно изменить чтобы работал макрос на разр. 1152х864?</p>]]></content>
			<author>
				<name><![CDATA[JackieCh]]></name>
				<uri>http://forum.script-coding.com/profile.php?id=34117</uri>
			</author>
			<updated>2016-08-15T10:07:28Z</updated>
			<id>http://forum.script-coding.com/viewtopic.php?pid=106765#p106765</id>
		</entry>
</feed>
