촬영사진 블로그 등록 일 15개 자동화

등록 페이지 

 

 

이전 근무지에서의 근무중 촬영 사진의 개인용도 사용가능을 확인 받은 후

블로그 등록 업무 자동화 진행 과정 정리

 

※ 원본의 경우 회사 귀속, 보정후 판매 용 사진의 개인 사용 가능

※ 판매 상품 페이지를 이용한 이미지 다운 및 사용 가능

※ 품절 상품의 이미지 제공은 불가능

 

이조건으로인해 

 

촬영 사진제공 받은 후 등록 하려 하였으나 불가능 

 

아래의 순서로 진행 

 

A 이미지 리스트 작성

└ DB 에서 전체 상품 리스트 추출 / 9천여개

　└ 촬영자 : 이원호 의 상품리스트를 추출 / 7천여개

 

B 상품 정보 추출

└ 상품 리스트 순차처리

　└ 정보 확인 (브랜드, 굽높이, 제조국, 이미지 형식)

 

C 이미지 저장

 └ 촬영 상품의 보정 이미지 등록 형식 확인

　└ 이미지 형식에 따른 저장 방식 구분

　　└ 파일명 및 경로 구분하여 저장

 

D 블로그 등록

└ 브랜드별 블로그 카테고리 선택

　└ 이미지 등록및 상품 정보 기입 등록

　　└ 등록 이미지의 리스트내 등록 완료 필드 추가및 관리

 

 

E 진행시 참고, 유의 사항

- 조회및 다운 간격 조절하여 사이트 과부하 및 접속 차단 방지

- 테스트용 10~20여개의 상품 다운및 등록 후 소요 시간 확인,  총 소요시간 예상

- 예외 상황 발생시 오류문구를 개인 메신저 전송후 작업 중단 기능 생성

- 블로그 등록시 이미지 등록후 카테고리 관리와 카테고리 관리후 등록 중 택일 하여 효율 적인 방법 으로 진행

└ 블로그내 브랜드명 검색 후 원하는 카테고리로 일괄 이동 기능이 있는 경우 > 등록을 간소화하여 자동화

└ 검색및 이동 기능이 없다면 > 카테고리 생성후 이미지의 브랜드에 따라 해당하는 카테고리를 선택하여 등록을 자동화

 

 

 

 

　

 

스크랩 자동화

loop,
{
FileReadLine,linecode,codeall.txt, %a_index%
FileCreateDir, % linecode
ToolTip, %a_index% / 361
;~ MsgBox, % linecode
        
    URL := "http://admin.ngoods.kr/omarket_auto/goodsinfo.php?goods_code=" linecode
    Result := ReadURL(URL)
    ;~ MsgBox, % Result 
    
    dir = %A_WorkingDir%\%linecode%\
    ;~ MsgBox, % dir
 
    pos=1
    while(pos := RegExMatch(Result, "<img src=(.*?)>", match, pos))
        {
        pos += strlen(match)
        RegExMatch(match1, "http(.*)(.jpg|.gif)", imagelink)
        RegExMatch(imagelink, "[^\/]*(\.jpg|\.gif)$", filename)
        URLDownloadToFile, %imagelink% , %dir% %filename%
        }
Sleep, 1000
}
 
return
 
 
;~ 함수영역
ReadURL(URL, encoding = "utf-8") {
    static a := "AutoHotkey/" A_AhkVersion
    if (!DllCall("LoadLibrary", "str", "wininet") || !(h := DllCall("wininet\InternetOpen", "str", a, "uint", 1, "ptr", 0, "ptr", 0, "uint", 0, "ptr")))
        return 0
    c := s := 0, o := ""
    if (f := DllCall("wininet\InternetOpenUrl", "ptr", h, "str", url, "ptr", 0, "uint", 0, "uint", 0x80003000, "ptr", 0, "ptr"))
    {
        while (DllCall("wininet\InternetQueryDataAvailable", "ptr", f, "uint*", s, "uint", 0, "ptr", 0) && s > 0)
        {
            VarSetCapacity(b, s, 0)
            DllCall("wininet\InternetReadFile", "ptr", f, "ptr", &b, "uint", s, "uint*", r)
            o .= StrGet(&b, r >> (encoding = "utf-16" || encoding = "cp1200"), encoding)
        }
        DllCall("wininet\InternetCloseHandle", "ptr", f)
    }
    DllCall("wininet\InternetCloseHandle", "ptr", h)
    return o
}
 
 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

등록 자동화 

 

 
정보가져오기:
;~ FileSelectFile, path
;~ MsgBox, % path
 
엑셀명칭 := ComObjCreate("excel.application")
엑셀명칭.workbooks.open("D:\AHK\등록 리스트.xlsx")
;~ 엑셀명칭.DisplayAlerts := False ; 엑셀창에서 확인, 알림 창 생성 금지
 
 
 
sel=D%시작번호%
제목 := 엑셀명칭.range(sel).Value
 
sel=E%시작번호%
파일경로 := 엑셀명칭.range(sel).Value
 
;~ MsgBox, % 제목 "`r" 파일경로
return
 
 
블로그열기:
 
run, chrome.exe --new-window  "https://we2e2e.tistory.com/manage"
Sleep, 500
WinActivate, 블로그관리 | TISTORY - Chrome
Sleep, 500
WinMove, 블로그관리 | TISTORY - Chrome,, 0,0,1200,1040
 
write:="https://we2e2e.tistory.com/manage/newpost/?type=post&returnURL=%2Fmanage%2Fposts%2F"
run, chrome.exe %write%
 
Sleep, 500
send, {right}
Sleep, 500
send, {enter}
 
 
 
return
 
 
 
제목작성:
Send, ^a
Sleep, 200
SendInput, %제목%
SendInput, {tab}
return
 
카테고리선택:
WinWait, 글쓰기 - Chrome,
IfWinNotActive, 글쓰기 - Chrome, , WinActivate, 글쓰기 - Chrome,
WinWaitActive, 글쓰기 - Chrome,
MouseClick, left,  318,  246
Sleep, 300
MouseClick, left,  247,  326
Sleep, 100
return
 
 
사진첨부:
 
;~ 첩부 아이콘 선택 클릭
WinWait, 글쓰기 - Chrome,
IfWinNotActive, 글쓰기 - Chrome, , WinActivate, 글쓰기 - Chrome,
WinWaitActive, 글쓰기 - Chrome,
MouseClick, left,  174,  149
Sleep, 200
MouseClick, left,  164,  199
Sleep, 200
WinWait, 열기,
IfWinNotActive, 열기, , WinActivate, 열기,
WinWaitActive, 열기,
 
;~ 경로입력
Sleep, 500
MouseClick, left,  565,  51
Sleep, 200
SendInput, %파일경로%
Sleep, 100
SendInput, {enter}
Sleep, 100
 
 
 
;~ 이미지 선택및 적용
WinWait, 열기,
IfWinNotActive, 열기, , WinActivate, 열기,
WinWaitActive, 열기,
MouseClick, left,  583,  392
Sleep, 100
 
Send, ^a
 
loop, 3
{
SendInput, {tab}
Sleep, 100
}
 
Sleep, 100
SendInput, {enter}
Sleep, 1500
 
 
;~ 완료 공개 공개 발행
WinWait, 글쓰기 - Chrome,
IfWinNotActive, 글쓰기 - Chrome, , WinActivate, 글쓰기 - Chrome,
WinWaitActive, 글쓰기 - Chrome,
MouseClick, left,  1090,  1000
Sleep, 200
MouseClick, left,  252,  694
Sleep, 200
MouseClick, left,  647,  971
Sleep, 1000
 
;~ 창닫기
WinWait, 블로그관리 | TISTORY - Chrome,
IfWinNotActive, 블로그관리 | TISTORY - Chrome, , WinActivate, 블로그관리 | TISTORY - Chrome,
WinWaitActive, 블로그관리 | TISTORY - Chrome,
Send, ^w
Sleep, 100
Send, ^w
Sleep, 100
 
 
;~ 다음줄 선택
시작번호++
 
 
return
 
 
 
 
 
return
 
loop, 361
{
FileReadLine,linecode,codeall.txt, %a_index%
FileCreateDir, % linecode
ToolTip, %a_index% / 361
;~ MsgBox, % linecode
 
    URL := "http://admin.ngoods.kr/omarket_auto/goodsinfo.php?goods_code=" linecode
    Result := ReadURL(URL)
    ;~ MsgBox, % Result
 
    dir = %A_WorkingDir%\%linecode%\
    ;~ MsgBox, % dir
 
    pos=1
    while(pos := RegExMatch(Result, "<img src=(.*?)>", match, pos))
        {
        pos += strlen(match)
        RegExMatch(match1, "http(.*)(.jpg|.gif)", imagelink)
        RegExMatch(imagelink, "[^\/]*(\.jpg|\.gif)$", filename)
        URLDownloadToFile, %imagelink% , %dir% %filename%
        }
Sleep, 1000
}
 
return